Natools

Check-in [7568f1efd7]
Login
Overview
Comment:s_expressions-printers: make level-checked Transfer go beyond the first list
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7568f1efd777603bd69cbaa9d27d9f7fcad03d95
User & Date: nat on 2014-09-13 14:03:32
Other Links: manifest | tags
Context
2014-09-14
21:33
s_expressions-templates-generic_integers: new package for S-expression templates of integer values check-in: 447d5f633d user: nat tags: trunk
2014-09-13
14:03
s_expressions-printers: make level-checked Transfer go beyond the first list check-in: 7568f1efd7 user: nat tags: trunk
2014-09-12
21:41
s_expressions-cache_tests: test the new Move functions check-in: ef36376c9f user: nat tags: trunk
Changes

Modified src/natools-s_expressions-printers.adb from [52aa58b1a0] to [cb988bcb9f].

53
54
55
56
57
58
59
60

61




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

60
61
62
63
64
65
66
67
68
69
70
71
72







-
+

+
+
+
+








      procedure Print_Atom (Data : in Atom) is
      begin
         Target.Append_Atom (Data);
      end Print_Atom;

      Event : Events.Event := Source.Current_Event;
      Starting_Level : constant Natural := Source.Current_Level;
      Starting_Level : Natural := Source.Current_Level;
   begin
      if Events."=" (Event, Events.Open_List) then
         Starting_Level := Starting_Level - 1;
      end if;

      loop
         case Event is
            when Events.Error | Events.End_Of_Input =>
               exit;
            when Events.Open_List =>
               Target.Open_List;
            when Events.Close_List =>