Differences From Artifact [64adc939bb]:
- File src/natools-s_expressions-generic_caches.adb — part of check-in [14c328e4b4] at 2014-09-08 19:52:03 on branch trunk — s_expressions-generic_caches: implement the new Replayable.Descriptor interface in cursors (user: nat, size: 12459) [annotate] [blame] [check-ins using]
To Artifact [500eb58670]:
- File src/natools-s_expressions-generic_caches.adb — part of check-in [86680251f9] at 2014-09-11 19:19:40 on branch trunk — s_expressions-generic_caches: add Move functions to build a cache directly from a descriptor (user: nat, size: 12733) [annotate] [blame] [check-ins using]
| ︙ | |||
177 178 179 180 181 182 183 184 185 186 187 188 189 190 | 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 | + + + + + + + + + + + + + |
begin
return Duplicate (Cache.Exp.Query.Data.all);
end Dup_Tree;
begin
return Reference'(Exp => Trees.Create (Dup_Tree'Access));
end Duplicate;
function Move (Source : in out S_Expressions.Descriptor'Class)
return Reference
is
Result : Reference;
begin
Printers.Transfer
(Source => Source,
Target => Result,
Check_Level => True);
return Result;
end Move;
-----------------------
-- Printer Interface --
-----------------------
overriding procedure Open_List (Output : in out Reference) is
|
| ︙ |