Differences From Artifact [34517169c8]:
- File src/natools-s_expressions-templates-generic_integers.adb — part of check-in [3c1dba5e77] at 2014-09-29 21:50:58 on branch trunk — s_expressions-templates-generic_integers: add width information to prefix and suffixes (user: nat, size: 30545) [annotate] [blame] [check-ins using]
To Artifact [0b26ca8f47]:
- File src/natools-s_expressions-templates-generic_integers.adb — part of check-in [076d8be66e] at 2014-10-01 17:51:20 on branch trunk — s_expressions-templates-generic_integers: new command for input of several images, leveraging affix syntax (user: nat, size: 30629) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
when Commands.Align_Right =>
State.Set_Align (Right_Aligned);
when Commands.Base =>
State.Set_Symbols (Arguments);
when Commands.Images =>
Image_Interpreter (Arguments, State, Meaningless_Value);
when Commands.Padding =>
case Arguments.Current_Event is
when Events.Add_Atom =>
State.Left_Padding := Create (Arguments.Current_Atom);
| > > > | 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 |
when Commands.Align_Right =>
State.Set_Align (Right_Aligned);
when Commands.Base =>
State.Set_Symbols (Arguments);
when Commands.Image_Range =>
Parse (State.Images, Arguments);
when Commands.Images =>
Image_Interpreter (Arguments, State, Meaningless_Value);
when Commands.Padding =>
case Arguments.Current_Event is
when Events.Add_Atom =>
State.Left_Padding := Create (Arguments.Current_Atom);
|
| ︙ | ︙ |