関数特性
言語: PLPGSQL
戻り値: integer
lockSet(set_id) それにアクセスできなくさせるセットの全てのテーブルに特別なトリガーを追加します。declare
p_set_id alias for $1;
v_local_node_id int4;
v_set_row record;
v_tab_row record;
begin
-- ----
-- 中枢構成にロックの取得
-- ----
lock table sl_config_lock;
-- ----
-- セットが存在し、自分がオリジンで未だロックされて
-- いないことの確認
-- ----
v_local_node_id := getLocalNodeId('_schemadoc');
select * into v_set_row from sl_set
where set_id = p_set_id
for update;
if not found then
raise exception 'Slony-I: set % not found', p_set_id;
end if;
if v_set_row.set_origin <> v_local_node_id then
raise exception 'Slony-I: set % does not originate on local node',
p_set_id;
end if;
if v_set_row.set_locked notnull then
raise exception 'Slony-I: set % is already locked', p_set_id;
end if;
-- ----
-- セット内の全てのテーブルに lockedSet トリガーを設置する。
-- ----
for v_tab_row in select T.tab_id,
slon_quote_brute(PGN.nspname) || '.' ||
slon_quote_brute(PGC.relname) as tab_fqname
from sl_table T,
"pg_catalog".pg_class PGC, "pg_catalog".pg_namespace PGN
where T.tab_set = p_set_id
and T.tab_reloid = PGC.oid
and PGC.relnamespace = PGN.oid
order by tab_id
loop
execute 'create trigger "_schemadoc_lockedset_' ||
v_tab_row.tab_id ||
'" before insert or update or delete on ' ||
v_tab_row.tab_fqname || ' for each row execute procedure
lockedSet (''_schemadoc'');';
end loop;
-- ----
-- セットのロック掛けに対してスナップショット xmax を思いだしてください。
-- ----
update sl_set
set set_locked = getMaxXid()
where set_id = p_set_id;
return p_set_id;
end;