22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
-
+
-
+
|
-- (base "symbol 0" "symbol 1" "symbol 2" ...) --
-- (left-padding "symbol") --
-- (image (0 "symbol 0") (2 "symbol 2") ...) --
-- (max-width "max width" ["overflow text"]) --
-- (min-width "min width") --
-- (padding "left-symbol" "right-symbol") --
-- (padding "symbol") --
-- (prefix (0 "prefix 0") (2 "prefix 2") ...) --
-- (prefix ("prefix" 0 (10 20) ...) ("prefix" 2) ...) --
-- (right-padding "symbol") --
-- (sign "plus sign" ["minus sign"]) --
-- (suffix (0 "suffix 0") (2 "suffix 2") ...) --
-- (suffix ("suffix" 0 (10 20) ...) ("suffix" 2) ...) --
-- (width "fixed width") --
-- (width "min width" "max width" ["overflow text"]) --
-- Top-level atoms are taken as the image for the next number. --
------------------------------------------------------------------------------
with Ada.Containers.Ordered_Maps;
with Ada.Streams;
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
-
+
+
-
+
-
-
+
+
-
+
|
Values : in Interval);
-- Remove the given interval from the map
procedure Include
(Map : in out Atom_Maps.Map;
Values : in Interval;
Image : in Atom_Refs.Immutable_Reference);
-- Add Image to the given interval, overwriting any existing values
-- Add Image to the given interval, overwriting any existing values.
-- If Image is empty, behave like Exclude.
procedure Parse_Single_Image
procedure Parse_Single_Affix
(Map : in out Atom_Maps.Map;
Expression : in out Lockable.Descriptor'Class);
-- Parse Expression to match `value image` or `(first last) image`,
-- and include it to Map.
-- Parse Expression as an affix atom, followed by single numbers (atoms)
-- or ranges (lists of two atoms).
procedure Parse
(Map : in out Atom_Maps.Map;
Expression : in out Lockable.Descriptor'Class);
-- Parse Expression as a list of single image expression (see above)
-- Parse Expression as a list of single image expressions (see above)
---------------------
-- Format Mutators --
---------------------
procedure Set_Align (Object : in out Format; Value : in Alignment);
|