Differences From Artifact [f35e7b972a]:
- File tools/timekey.adb — part of check-in [f4f3b7b682] at 2017-01-28 20:09:43 on branch trunk — tools/timekey: refactor the number of displayed subsecond digits (user: nat, size: 3461) [annotate] [blame] [check-ins using]
To Artifact [73c162bfd5]:
- File tools/timekey.adb — part of check-in [b40ac98134] at 2017-01-29 21:32:40 on branch trunk — tools/timekey: add CLI option to configure numer of subsecond digits (user: nat, size: 3696) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
Arg : constant String := Ada.Command_Line.Argument (I);
begin
if Arg = "-" then
Empty := False;
Process_Input;
elsif Arg = "-v" then
Verbose := True;
else
Empty := False;
Process (Arg);
end if;
end;
end loop;
| > > > > > > | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 |
Arg : constant String := Ada.Command_Line.Argument (I);
begin
if Arg = "-" then
Empty := False;
Process_Input;
elsif Arg = "-v" then
Verbose := True;
elsif Arg'Length = 2
and then Arg (Arg'First) = '-'
and then Arg (Arg'Last) in '0' .. '9'
then
Subsecond_Digits := Character'Pos (Arg (Arg'Last))
- Character'Pos ('0');
else
Empty := False;
Process (Arg);
end if;
end;
end loop;
|
| ︙ | ︙ |