-- * BEFORE INSERT or UPDATE on WSlot

-- *- Check that room exists

-- ************************************************************

create function tg_wslot_biu() returns trigger as'

create function tg_wslot_biu() returns trigger as$$

begin

if count(*) = 0 from Room where roomno = new.roomno then

raise exception ''Room % does not exist'', new.roomno;

raise exception 'Room % does not exist', new.roomno;

end if;

return new;

end;

' language'plpgsql';

$$ language plpgsql;

create trigger tg_wslot_biu before insert or update

on WSlot for each row execute procedure tg_wslot_biu();

-- ************************************************************

-- * BEFORE INSERT or UPDATE on PSlot

-- *- Ensure that our patchfield does exist

-- ************************************************************

create function tg_pslot_biu() returns trigger as'

create function tg_pslot_biu() returns trigger as$proc$

declare

pfrecrecord;

rename new to ps;

begin

select into pfrec * from PField where name = ps.pfname;

if not found then

raise exception''Patchfield "%" does not exist'', ps.pfname;

raise exception$$Patchfield "%" does not exist$$, ps.pfname;

end if;

return ps;

end;

' language'plpgsql';

$proc$ language plpgsql;

create trigger tg_pslot_biu before insert or update

on PSlot for each row execute procedure tg_pslot_biu();

-- ************************************************************

-- * BEFORE INSERT or UPDATE on IFace

-- *- set the slotname to IF.sysname.ifname

-- ************************************************************

create function tg_iface_biu() returns trigger as'

create function tg_iface_biu() returns trigger as$$

declare

snametext;

sysrecrecord;

begin

select into sysrec * from system where name = new.sysname;

if not found then

raise exception''system "%" does not exist'', new.sysname;

raise exception$q$system "%" does not exist$q$, new.sysname;

end if;

sname := ''IF.'' || new.sysname;

sname := sname || ''.'';

sname := 'IF.' || new.sysname;

sname := sname || '.';

sname := sname || new.ifname;

if length(sname) > 20 then

raise exception ''IFace slotname "%" too long (20 char max)'', sname;

raise exception 'IFace slotname "%" too long (20 char max)', sname;

end if;

new.slotname := sname;

return new;

end;

' language'plpgsql';

$$ language plpgsql;

create trigger tg_iface_biu before insert or update

on IFace for each row execute procedure tg_iface_biu();

-- ************************************************************

-- ************************************************************

-- * Support function to add/remove slots of Hub

-- ************************************************************

create function tg_hub_adjustslots(bpchar, integer, integer)

create function tg_hub_adjustslots(hname bpchar,

oldnslots integer,

newnslots integer)

returns integer as '

declare

hnamealias for $1;

oldnslotsalias for $2;

newnslotsalias for $3;

begin

if newnslots = oldnslots then

return 0;

values (''HS.dummy'', hname, i, '''');

end loop;

return 0;

end;

end

' language 'plpgsql';

-- Test comments

COMMENT ON FUNCTION tg_hub_adjustslots_wrong(bpchar, integer, integer) IS 'function with args';

-- * Support function to set the opponents backlink field

-- * if it does not already point to the requested slot

-- ************************************************************

create function tg_backlink_set(bpchar, bpchar)

create function tg_backlink_set(mynamebpchar, blname bpchar)

returns integer as '

declare

mynamealias for $1;

blnamealias for $2;

mytypechar(2);

linkchar(4);

recrecord;

end if;

return 0;

end if;

end;

' language'plpgsql';

end

' language plpgsql;

-- ************************************************************

-- * AFTER INSERT or UPDATE or DELETE on slot with slotlink

-- *- Ensure that the opponent correctly points back to us

createfunctiontg_wslot_biu() returns triggeras'

createfunctiontg_wslot_biu() returns triggeras$$

ifcount(*)=0from Roomwhere roomno=new.roomno then

raise exception'Room % does not exist',new.roomno;

end if;

return new;

end;

' language'plpgsql';

$$ language plpgsql;

createtriggertg_wslot_biu before insertorupdate

on WSlot for each row execute procedure tg_wslot_biu();

createfunctiontg_pslot_biu() returns triggeras'

createfunctiontg_pslot_biu() returns triggeras$proc$

declare

pfrecrecord;

rename new to ps;

select into pfrec*from PFieldwhere name=ps.pfname;

if not found then

raise exception$$Patchfield"%" does not exist$$,ps.pfname;

end if;

return ps;

end;

' language'plpgsql';

$proc$ language plpgsql;

createtriggertg_pslot_biu before insertorupdate

on PSlot for each row execute procedure tg_pslot_biu();

createfunctiontg_iface_biu() returns triggeras'

createfunctiontg_iface_biu() returns triggeras$$

declare

snametext;

sysrecrecord;

select into sysrec*from systemwhere name=new.sysname;

if not found then

raise exception$q$system"%" does not exist$q$,new.sysname;

end if;

sname :='IF.'||new.sysname;

sname := sname||'.';

sname := sname||new.ifname;

if length(sname)>20 then

raise exception'IFace slotname "%" too long (20 char max)', sname;

end if;

new.slotname := sname;

return new;

end;

' language'plpgsql';

$$ language plpgsql;

createtriggertg_iface_biu before insertorupdate

on IFace for each row execute procedure tg_iface_biu();

createfunctiontg_hub_adjustslots(bpchar,integer,integer)

createfunctiontg_hub_adjustslots(hname bpchar,

oldnslotsinteger,

newnslotsinteger)

returnsintegeras'

' language'plpgsql';

createfunctiontg_backlink_set(bpchar, bpchar)

createfunctiontg_backlink_set(mynamebpchar, blname bpchar)

returnsintegeras'

' language'plpgsql';

' language plpgsql;