Natools

Check-in [f9d3f1aa38]
Login
Overview
Comment:tools/timekey: refactor command-line argument processing
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f9d3f1aa3889b762a8b71ceb8dcec1aed0c39842
User & Date: nat on 2017-01-27 20:44:28
Other Links: manifest | tags
Context
2017-01-28
20:09
tools/timekey: refactor the number of displayed subsecond digits check-in: f4f3b7b682 user: nat tags: trunk
2017-01-27
20:44
tools/timekey: refactor command-line argument processing check-in: f9d3f1aa38 user: nat tags: trunk
2017-01-07
22:53
smaz_implementations-base_64: rewrite variable-length verbatim code

At some point in the development I changed the base-64 scheme, but failed to propagate it everywhere. Mostly I intend to use only one mode in base-64, and the other one is merely a place-holder, which explains how it got neglected. Now at least it works, even if it's useless. check-in: 210677c061 user: nat tags: trunk

Changes

Modified tools/timekey.adb from [98d2f7e779] to [a21f1616f7].

1
2

3
4
5
6
7
8
9
1

2
3
4
5
6
7
8
9

-
+







------------------------------------------------------------------------------
-- Copyright (c) 2015, Natacha Porté                                        --
-- Copyright (c) 2015-2017, Natacha Porté                                   --
--                                                                          --
-- Permission to use, copy, modify, and distribute this software for any    --
-- purpose with or without fee is hereby granted, provided that the above   --
-- copyright notice and this permission notice appear in all copies.        --
--                                                                          --
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF         --
73
74
75
76
77
78
79

80
81
82
83
84
85
86
87
88












89
90
91
92
93
94
95
73
74
75
76
77
78
79
80









81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99







+
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+







         end loop;
      exception
         when Ada.Text_IO.End_Error => null;
      end;
   end Process_Input;
begin
   for I in 1 .. Ada.Command_Line.Argument_Count loop
      declare
      if Ada.Command_Line.Argument (I) = "-" then
         Empty := False;
         Process_Input;
      elsif Ada.Command_Line.Argument (I) = "-v" then
         Verbose := True;
      else
         Empty := False;
         Process (Ada.Command_Line.Argument (I));
      end if;
         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;

   if Empty then
      declare
         Now : constant Ada.Calendar.Time := Ada.Calendar.Clock;
      begin
         if Verbose then