Differences From Artifact [4410166561]:
- File src/natools-s_expressions-generic_caches.adb — part of check-in [50ec4ef40a] at 2014-02-16 17:59:17 on branch trunk — s_expressions-generic_caches: fix duplication of child lists (user: nat, size: 10165) [annotate] [blame] [check-ins using]
To Artifact [9263dcc4c7]:
- File src/natools-s_expressions-generic_caches.adb — part of check-in [7ac5ffc727] at 2014-02-22 13:46:50 on branch trunk — s_expressions-generic_caches: fix level compuation of lists that have just been opened (user: nat, size: 10337) [annotate] [blame] [check-ins using]
| ︙ | |||
265 266 267 268 269 270 271 272 273 274 275 276 277 278 | 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 | + + + + + + + |
end Current_Atom;
overriding function Current_Level (Object : in Cursor) return Natural is
Result : Natural := 0;
N : Node_Access := Object.Position;
begin
if Object.Position /= null
and then Object.Position.Kind = List_Node
and then Object.Opening
then
Result := Result + 1;
end if;
while N /= null loop
Result := Result + 1;
N := N.Parent;
end loop;
return Natural'Max (Result, 1) - 1;
end Current_Level;
|
| ︙ |