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: |
7568f1efd777603bd69cbaa9d27d9f7f |
| 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 |
procedure Print_Atom (Data : in Atom) is
begin
Target.Append_Atom (Data);
end Print_Atom;
Event : Events.Event := Source.Current_Event;
| | > > > > | 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 : 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 =>
|
| ︙ | ︙ |