M agpl-xml.adb

M agpl-xml.ads
mosteo · Jan 15, 2007 · e5a58ec · e5a58ec
1 parent 18c88c8
commit e5a58ec
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/agpl-xml.adb b/agpl-xml.adb
@@ -163,6 +163,18 @@ package body Agpl.Xml is
       end;
    end Get;
 
+   -----------------
+   -- Get_Or_Null --
+   -----------------
+
+   function Get_Or_Null (Parent : Node; Name : String) return Node is
+   begin
+      return Get (Parent, Name);
+   exception
+      when Constraint_Error =>
+         return null;
+   end Get_Or_Null;
+
    -------------
    -- Get_All --
    -------------

diff --git a/agpl-xml.ads b/agpl-xml.ads
@@ -80,6 +80,8 @@ package Agpl.Xml is
    ------------------------------------------------------------------------
    --  Retrieve the named child. If it doesn exist, exception raised.
    function Get (Parent : Node; Name : String) return Node;
+   function Get_Or_Null (Parent : Node; Name : String) return Node;
+   --  Will return null instead of raising exception
 
    ------------------------------------------------------------------------
    -- Get_All                                                            --