------------------------------------------------------------------------------- -- -- -- XPATH IN ADA Copyright (C) 2003, McKae Technologies -- -- XPATH IN ADA Copyright (C) 2021, Simon Wright -- -- -- -- XPath in Ada (XIA) is free software; you can redistribute it and/or -- -- modify it under terms of the GNU General Public License as published by -- -- the Free Software Foundation; either version 3, or (at your option) any -- -- later version. GNAT is distributed in the hope that it will be useful, -- -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- -- -- -- As a special exception under Section 7 of GPL version 3, you are -- -- granted additional permissions described in the GCC Runtime Library -- -- Exception, version 3.1, as published by the Free Software Foundation. -- -- -- -- You should have received a copy of the GNU General Public License and a -- -- copy of the GCC Runtime Library Exception along with this program; see -- -- the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- -- . -- -- -- -- XIA is maintained at https://github.com/simonjwright/xia -- -- -- ------------------------------------------------------------------------------- with Ada.Containers.Vectors; with Xpath_Model; package McKae.XML.XPath.Predicates is package Predicates_List_Package is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => Xpath_Model.Parseable_Ptr, "=" => Xpath_Model."="); subtype Predicate_List is Predicates_List_Package.Vector; Null_Predicate : constant Predicate_List := Predicates_List_Package.Empty_Vector; -- Add the pointer to the root node of a parse subtree that was -- created for a predicate procedure Add_Predicate_Parse (L : in out Predicate_List; T : in not null Xpath_Model.Parseable_Ptr); -- Release the contents of a predicate handle (which may consist -- of one or more individual predicate definitions). Note that -- this does _not_ release the associated parse subtree associated -- with each predicate instance. procedure Release (L : in out Predicate_List); Malformed_Predicate : exception; -- Raised when a supplied query predicate does not conform to -- predicate syntax end McKae.XML.XPath.Predicates;