39.6. PL/Tcl�Υȥꥬ�ץ���������

�ȥꥬ�ץ����������PL/Tcl�Ǻ������뤳�Ȥ��Ǥ��ޤ��� PostgreSQL�Ǥϡ��ȥꥬ�Ȥ��ƸƤӽФ����ץ���������ϡ�trigger��������ͤ��֤������Τʤ��ؿ��Ȥ����������ɬ�פ�����ޤ���

�ȥꥬ�ޥ͡����㤫��ξ���ϡ��ʲ����ѿ���˳�Ǽ����ƥץ������������Τ��Ϥ���ޤ���

�ȥꥬ�ץ��������㤫�������ͤϡ�OK�Ȥ���ʸ����SKIP�Ȥ���ʸ����array get Tcl���ޥ�ɤˤ�ä��֤����ꥹ�Ȥ����1�Ĥ��뤳�Ȥ��Ǥ��ޤ��� ����ͤ�OK�ξ�硢�ȥꥬ��ȯ�Ԥ�������INSERT/UPDATE/DELETE�ˤ�����˽�������ޤ��� SKIP�ϥȥꥬ�ޥ͡�����ˤ��ιԤ��Ф������򲿤���Ϥ�������ߤ���褦�����Τ��ޤ��� �ꥹ�Ȥ��֤��줿���ϡ�PL/Tcl���Ф����ȥꥬ�ޥ͡�����ˤ�ä�Ϳ����줿$NEW�ǤϤʤ����ѹ������Ԥ���������褦�˥ȥꥬ�ޥ͡�������֤����Ȥ����Τ��ޤ� �ʤ����INSERT/UPDATE�ξ��Τ�ư��ޤ��ˡ� �����ޤǤ⤢��ޤ��󤬡����������ơ��ȥꥬ��BEFORE����FOR EACH ROW�λ��ˤΤ߰�̣������ޤ��� ����ʤ���С�����ͤ�̵�뤵��ޤ���

�����ǡ��ơ��֥���������ͤȤ��Ƥ��ιԤ��Ф��빹������Ͽ�����롢������Υȥꥬ�ץ������������򼨤��ޤ��� �����ιԤ��������줿���ϡ������ͤ�0�˽�������졢���θ�γƹ���������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 PROCEDURE trigfunc_modcount('modcnt');

�ȥꥬ�ץ��������㼫�Ȥ���̾��ǧ�����Ƥ��ʤ��������ܤ��Ƥ��������� ����ϡ��ȥꥬ�ΰ����Ȥ���Ϳ�����ޤ��� ����ˤ�ꡢ���Υȥꥬ�ץ�����������̤Υơ��֥�Ǻ����Ѥ��뤳�Ȥ��Ǥ��ޤ���