From 6b5dd8292d1f51c297835d8fbf4374902801c3c3 Mon Sep 17 00:00:00 2001 From: "Karl O. Pinc" Date: Tue, 12 Sep 2023 15:38:13 -0500 Subject: [PATCH] Remove files used in attempt to match input lines with lines reported in pl/pgsql errors --- .../triggers/create/biography.synclines | 449 ------------------ 1 file changed, 449 deletions(-) delete mode 100644 db/schemas/sokwedb/triggers/create/biography.synclines diff --git a/db/schemas/sokwedb/triggers/create/biography.synclines b/db/schemas/sokwedb/triggers/create/biography.synclines deleted file mode 100644 index d8f3ece..0000000 --- a/db/schemas/sokwedb/triggers/create/biography.synclines +++ /dev/null @@ -1,449 +0,0 @@ -#line 19 "biography.m4" - -#line 23 "../../../../include/copyright.m4" --- Copyright (C) 2011-2013, 2023 The Meme Factory, Inc. -#line 23 --- http://www.karlpinc.com/ -#line 23 --- Copyright (C) 2004-2011, Karl O. Pinc -#line 23 --- -#line 23 --- This program is free software: you can redistribute it and/or modify -#line 23 --- it under the terms of the GNU Affero General Public License as -#line 23 --- published by the Free Software Foundation, either version 3 of the -#line 23 --- License, or (at your option) any later version. -#line 23 --- -#line 23 --- This program is distributed in the hope that it will be useful, -#line 23 --- but WITHOUT ANY WARRANTY; without even the implied warranty of -#line 23 --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#line 23 --- GNU Affero General Public License for more details. -#line 23 --- -#line 23 --- You should have received a copy of the GNU Affero General Public License -#line 23 --- along with this program. If not, see . -#line 23 --- -#line 23 --- Karl O. Pinc -#line 23 - -#line 23 --- DO NOT EDIT THIS FILE. It was automatically generated. Edit -#line 23 --- the *.m4 files instead. (Files _should_ be re-created by -#line 23 --- typing 'make' at the command line.) -#line 51 "../../../../../include/limits.m4" - -#line 21 "../../../../include/constants.m4" - -#line 21 - -#line 21 - -#line 26 "../../../../include/macros.m4" - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 26 - -#line 24 "biography.m4" - - -#line 39 - -#line 109 - - - - -RAISE INFO 'biography_func'; -CREATE OR REPLACE FUNCTION biography_func () - RETURNS trigger - LANGUAGE plpgsql - SET search_path = sokwedb, lookup, upload, pg_temp - AS $$ - BEGIN - -- Function for biography insert and update triggers - -- - -- Copyright (C) 2023 The Meme Factory, Inc., www.karlpinc.com -#line 122 - -- Distributed under the GNU Affero General Public License, version 3 or -#line 122 - -- later. -#line 124 - - IF TG_OP = 'UPDATE' THEN - -- Allowing the AnimID to change makes life too complicated. - IF NEW.AnimID <> OLD.AnimID -#line 127 - OR NEW.AnimID IS NULL AND OLD.AnimID IS NOT NULL -#line 127 - OR NEW.AnimID IS NOT NULL AND OLD.AnimID IS NULL THEN -#line 127 - -- AnimID has changed -#line 127 - RAISE EXCEPTION data_exception USING -#line 127 - MESSAGE = 'Error updating BIOGRAPHY' -#line 127 - , DETAIL = '(BIOGRAPHY) = (' -#line 127 - || CASE WHEN OLD.AnimID IS NULL THEN 'NULL' ELSE OLD.AnimID::TEXT END -#line 127 - -#line 127 - || '): BIOGRAPHY.AnimID cannot be changed'; -#line 127 - END IF; -#line 127 - - END IF; - - -- All but the youngest sibling (or siblings in the case of twins) - -- must have FirstBorn of N. - IF TG_OP = 'UPDATE' THEN - IF NEW.momid IS DISTINCT FROM OLD.momid THEN - DECLARE -#line 134 - -- Info on the first born -#line 134 - fb_animid biography.animid%TYPE; -#line 134 - fb_animname biography.animname%TYPE; -#line 134 - fb_birthdate biography.birthdate%TYPE; -#line 134 - -- Info on a sibling who breaks the rules -#line 134 - bad_animid biography.animid%TYPE; -#line 134 - bad_animname biography.animname%TYPE; -#line 134 - bad_birthdate biography.birthdate%TYPE; -#line 134 - bad_firstborn biography.firstborn%TYPE; -#line 134 - BEGIN -#line 134 - -- Find the mother's firstborn -#line 134 - SELECT biography.animid, biography.animname, biography.birthdate -#line 134 - INTO fb_animid, fb_animname, fb_birthdate -#line 134 - FROM biography -#line 134 - WHERE biography.momid = NEW.momid -#line 134 - ORDER BY biography.birthdate -#line 134 - LIMIT 1; -#line 134 - -- Find a random sibling with a bad FirstBorn -#line 134 - -- (Collect data to produce a wordy error message instead of using -#line 134 - -- a sub-select.) -#line 134 - SELECT biography.animid, biography.animname, biography.birthdate, -#line 134 - biography.firstborn -#line 134 - INTO bad_animid, bad_animname, bad_birthdate, -#line 134 - bad_firstborn -#line 134 - FROM biography -#line 134 - WHERE biography.momid = NEW.momid -#line 134 - AND biography.birthdate > fb_birthdate -#line 134 - AND biography.firstborn <> 'N' -#line 134 - ORDER BY biography.birthdate -#line 134 - LIMIT 1; -#line 134 - IF FOUND THEN -#line 134 - RAISE EXCEPTION integrity_constraint_violation USING -#line 134 - MESSAGE = 'All but the youngest sibling (or siblings' -#line 134 - || ' in the case of twins) must have a' -#line 134 - || ' (BIOGRAPHY.FirstBorn) = (N)' -#line 134 - , DETAIL = 'Updating the BIOGRAPHY row where the new values are (AnimID) = (' -#line 134 - || NEW.animid -#line 134 - || '), (AnimName) = (' -#line 134 - || NEW.animname -#line 134 - || '), (MomID) = (' -#line 134 - || NEW.momid -#line 134 - || '), (BirthDate) = (' -#line 134 - || NEW.birthdate -#line 134 - || ') results in a sibling [(AnimID) = (' -#line 134 - || bad_animid -#line 134 - || '), (AnimName) = (' -#line 134 - || bad_animname -#line 134 - || '), (MomID) = (' -#line 134 - || NEW.momid -#line 134 - || '), (BirthDate) = (' -#line 134 - || bad_birthdate -#line 134 - || '), (FirstBorn) = (' -#line 134 - || bad_firstborn -#line 134 - || ')] with an invalid FirstBorn value, being born' -#line 134 - || ' after [(AnimID) = (' -#line 134 - || fb_animid -#line 134 - || '), (AnimName) = (' -#line 134 - || fb_animname -#line 134 - || '), (MomID) = (' -#line 134 - || NEW.momid -#line 134 - || '), (BirthDate) = (' -#line 134 - || fb_birthdate -#line 134 - || ')]' -#line 134 - , HINT = 'If the youngest sibling is no longer yougest, set it''s' -#line 134 - || ' (FirstBorn) = (N).'; -#line 134 - END IF; -#line 134 - END; - - END IF; - IF NEW.birthdate <> OLD.birthdate THEN - END IF; - END IF; - IF TG_OP = 'INSERT' - AND NEW.momid IS NOT NULL THEN - DECLARE -#line 142 - -- Info on the first born -#line 142 - fb_animid biography.animid%TYPE; -#line 142 - fb_animname biography.animname%TYPE; -#line 142 - fb_birthdate biography.birthdate%TYPE; -#line 142 - -- Info on a sibling who breaks the rules -#line 142 - bad_animid biography.animid%TYPE; -#line 142 - bad_animname biography.animname%TYPE; -#line 142 - bad_birthdate biography.birthdate%TYPE; -#line 142 - bad_firstborn biography.firstborn%TYPE; -#line 142 - BEGIN -#line 142 - -- Find the mother's firstborn -#line 142 - SELECT biography.animid, biography.animname, biography.birthdate -#line 142 - INTO fb_animid, fb_animname, fb_birthdate -#line 142 - FROM biography -#line 142 - WHERE biography.momid = NEW.momid -#line 142 - ORDER BY biography.birthdate -#line 142 - LIMIT 1; -#line 142 - -- Find a random sibling with a bad FirstBorn -#line 142 - -- (Collect data to produce a wordy error message instead of using -#line 142 - -- a sub-select.) -#line 142 - SELECT biography.animid, biography.animname, biography.birthdate, -#line 142 - biography.firstborn -#line 142 - INTO bad_animid, bad_animname, bad_birthdate, -#line 142 - bad_firstborn -#line 142 - FROM biography -#line 142 - WHERE biography.momid = NEW.momid -#line 142 - AND biography.birthdate > fb_birthdate -#line 142 - AND biography.firstborn <> 'N' -#line 142 - ORDER BY biography.birthdate -#line 142 - LIMIT 1; -#line 142 - IF FOUND THEN -#line 142 - RAISE EXCEPTION integrity_constraint_violation USING -#line 142 - MESSAGE = 'All but the youngest sibling (or siblings' -#line 142 - || ' in the case of twins) must have a' -#line 142 - || ' (BIOGRAPHY.FirstBorn) = (N)' -#line 142 - , DETAIL = 'Inserting a BIOGRAPHY row where (AnimID) = (' -#line 142 - || NEW.animid -#line 142 - || '), (AnimName) = (' -#line 142 - || NEW.animname -#line 142 - || '), (MomID) = (' -#line 142 - || NEW.momid -#line 142 - || '), (BirthDate) = (' -#line 142 - || NEW.birthdate -#line 142 - || ') results in a sibling [(AnimID) = (' -#line 142 - || bad_animid -#line 142 - || '), (AnimName) = (' -#line 142 - || bad_animname -#line 142 - || '), (MomID) = (' -#line 142 - || NEW.momid -#line 142 - || '), (BirthDate) = (' -#line 142 - || bad_birthdate -#line 142 - || '), (FirstBorn) = (' -#line 142 - || bad_firstborn -#line 142 - || ')] with an invalid FirstBorn value, being born' -#line 142 - || ' after [(AnimID) = (' -#line 142 - || fb_animid -#line 142 - || '), (AnimName) = (' -#line 142 - || fb_animname -#line 142 - || '), (MomID) = (' -#line 142 - || NEW.momid -#line 142 - || '), (BirthDate) = (' -#line 142 - || fb_birthdate -#line 142 - || ')]' -#line 142 - , HINT = 'If the youngest sibling is no longer yougest, set it''s' -#line 142 - || ' (FirstBorn) = (N).'; -#line 142 - END IF; -#line 142 - END; -#line 142 - - END IF; - END; -$$; - -RAISE INFO 'biography_trigger'; -CREATE TRIGGER biography_trigger - AFTER INSERT OR UPDATE - ON biography FOR EACH ROW - EXECUTE PROCEDURE biography_func(); -- 2.34.1