Natools

Check-in [e76def5969]
Login

Check-in [e76def5969]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:s_expressions: add equality operator on atoms, so clients don't have to depend on Ada.Streams
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e76def59693fd716112f3c30123fdfc8d3f24e49
User & Date: nat 2015-04-10 21:14:11.466
Context
2015-04-11
21:09
time_keys-tests: add a test showing a subsecond rounding bug check-in: d3c251409e user: nat tags: trunk
2015-04-10
21:14
s_expressions: add equality operator on atoms, so clients don't have to depend on Ada.Streams check-in: e76def5969 user: nat tags: trunk
2015-04-04
21:43
s_expressions-test_tools: a function to build a S-expression directly from a string check-in: f0e8bc08bd user: nat tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/natools-s_expressions.ads.
︙︙
53
54
55
56
57
58
59


60
61
62
63
64
65
66

   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 Less_Than (Left, Right : Atom) return Boolean;



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








>
>








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;



   -----------------------------
︙︙