Natools

Check-in [b40ac98134]
Login
Overview
Comment:tools/timekey: add CLI option to configure numer of subsecond digits
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b40ac98134d8534e5ded4326fb1a957511709a3d
User & Date: nat on 2017-01-29 21:32:40
Other Links: manifest | tags
Context
2017-01-30
21:33
smaz_4096: new instance of generic Smaz, base-64 and large dictionary check-in: c57a785ddb user: nat tags: trunk
2017-01-29
21:32
tools/timekey: add CLI option to configure numer of subsecond digits check-in: b40ac98134 user: nat tags: trunk
2017-01-28
20:09
tools/timekey: refactor the number of displayed subsecond digits check-in: f4f3b7b682 user: nat tags: trunk
Changes

Modified tools/timekey.adb from [f35e7b972a] to [73c162bfd5].

82
83
84
85
86
87
88






89
90
91
92
93
94
95
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;