Differences From Artifact [99a62d27e0]:

• File src/natools-s_expressions.ads — part of check-in [62ca3fd9c9] at 2014-12-02 22:07:01 on branch trunk — s_expressions: add usual lexicographical comparison operator on Atoms, so that clients don't have to explicitly use Ada.Streams."<" (user: nat size: 5455)

To Artifact [44bdbebcd7]:

• File src/natools-s_expressions.ads — part of check-in [e76def5969] at 2015-04-10 21:14:11 on branch trunk — s_expressions: add equality operator on atoms, so clients don't have to depend on Ada.Streams (user: nat size: 5537)

53
54
55
56
57
58
59


60
61
62
63
64
65
66

53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

+
+

   subtype Atom is Ada.Streams.Stream_Element_Array;

   Null_Atom : constant Atom (1 .. 0) := (others => <>);

   function To_String (Data : in Atom) return String;
   function To_Atom (Data : in String) return Atom;

   function "=" (Left, Right : Atom) return Boolean
     renames Ada.Streams."=";
   function "<" (Left, Right : Atom) return Boolean
     renames Ada.Streams."<";
   function Less_Than (Left, Right : Atom) return Boolean;



   -----------------------------