dashera_0.14.0_ee112420/src/dashera.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
--  Copyright (C)2021,2022 Steve Merrony

--  Permission is hereby granted, free of charge, to any person obtaining a copy
--  of this software and associated documentation files (the "Software"), to deal
--  in the Software without restriction, including without limitation the rights
--  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
--  copies of the Software, and to permit persons to whom the Software is
--  furnished to do so, subject to the following conditions:
--  The above copyright notice and this permission notice shall be included in
--  all copies or substantial portions of the Software.

--  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
--  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
--  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
--  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
--  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
--  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
--  THE SOFTWARE.

with Ada.Command_Line;        use Ada.Command_Line;
with Ada.Strings.Unbounded;   use Ada.Strings.Unbounded;
with Ada.Text_IO;

with GNAT.OS_Lib;

with Gdk.Threads;
with Gtk.Main;
with Gtk.Window;  use Gtk.Window;

with BDF_Font;
with GUI;
with Logging; use Logging;

procedure Dashera is

   --  GUI stuff
   Main_Window : Gtk_Window;

   --  program args etc.
   Arg_Ix : Natural := 1;
   Font_Colour : BDF_Font.Font_Colour_T := BDF_Font.Green;
   Host_Arg : Unbounded_String := Null_Unbounded_String;
   Trace_Xmodem : Boolean := False;

   procedure Print_Help is
   begin
      Ada.Text_IO.Put_Line ("Usage of dashera:");
      Ada.Text_IO.Put_Line ("  -amber            Use an amber font instead of green");
      Ada.Text_IO.Put_Line ("  -debug            Print debugging information on STDOUT");
      Ada.Text_IO.Put_Line ("  -h or -help       Print this help");
      Ada.Text_IO.Put_Line ("  -host <host:port> Host to connect with via Telnet");
      Ada.Text_IO.Put_Line ("  -tracescript      Print trace of Mini-Expect script on STDOUT");
      Ada.Text_IO.Put_Line ("  -tracexmodem      Show details of XMODEM file transfers on STDOUT");
      Ada.Text_IO.Put_Line ("  -version          Show the version number of dashera and exit");
      Ada.Text_IO.Put_Line ("  -white            Use a white font instead of green");
   end Print_Help;

begin

   while Arg_Ix <= Argument_Count loop
      if Argument (Arg_Ix) = "-version" then
         Ada.Text_IO.Put_Line ("dashera version " & GUI.App_SemVer);
         return;
      elsif Argument (Arg_Ix) = "-host" then
         Host_Arg := To_Unbounded_String (Argument (Arg_Ix + 1));
         Arg_Ix := Arg_Ix + 1;
      elsif Argument (Arg_Ix) = "-debug" then
         Set_Level (DEBUG);
      elsif Argument (Arg_Ix) = "-tracescript" then
         Set_Level (TRACE);
      elsif Argument (Arg_Ix) = "-tracexmodem" then
         Trace_Xmodem := True;
      elsif Argument (Arg_Ix) = "-amber" then
         Font_Colour := BDF_Font.Amber;
      elsif Argument (Arg_Ix) = "-white" then
         Font_Colour := BDF_Font.White;
      elsif Argument (Arg_Ix) = "-h" or else Argument (Arg_Ix) = "-help" then
         Print_Help;
         GNAT.OS_Lib.OS_Exit (0);
      end if;
      Arg_Ix := Arg_Ix + 1;
   end loop;

   Gdk.Threads.G_Init;
   Gdk.Threads.Init;
   Gtk.Main.Init;
   Log (DEBUG, "Preparing to enter Main GTK event loop...");
   Gdk.Threads.Enter;
   Main_Window := GUI.Create_Window (Host_Arg, Font_Colour, Trace_Xmodem);
   Main_Window.Show_All;
   Gtk.Main.Main;
   -- Gdk.Threads.Leave;

end Dashera;