with Warborg.Xborg.Terminal;
use Warborg.Xborg;
 
with Ada.Command_Line, Ada.Text_Io;
use Ada;
 
with Gnat.Sockets;
use Gnat;
 
procedure Xborg is
 
   procedure Usage is
 
   begin
      Text_Io.Put_Line("usage : " & Command_Line.Command_Name & "  -a IP | -n Hostname" );
   end Usage;
 
  Args_Error : exception;
 
  Address : aliased Sockets.Sock_Addr_Type;
 
begin
 
   if Command_Line.Argument_Count < 2 then
 
      raise Args_Error;
   end if;
 
   if Command_Line.Argument(1) = "-a" then
 
      begin
 
         Address.addr := Sockets.Addresses (Sockets.Get_Host_By_address (Sockets.Inet_addr (Command_Line.Argument(2))));
      end;
   elsif Command_Line.Argument(1) = "-n" then
 
      begin
 
         Address.addr := Sockets.Addresses (Sockets.Get_Host_By_Name (Command_Line.Argument(2)));
      end;
   else
 
      Text_Io.Put_Line(Command_Line.Command_Name & " : unknow switch : " & Command_Line.Argument(1));
 
      raise Args_Error;
   end if;
 
   Terminal.Run(Address'access);
 
exception
   when Args_Error =>
      Usage;
end Xborg;

procedure Run(Address : access Sockets.Sock_Addr_Type) is
      Term_Address      : Sockets.Sock_Addr_Type := Address.all;
      Socket            : Sockets.Socket_Type;
      Channel           : Sockets.Stream_access;
      Command, Response : String_Access;
      Status            : Boolean := False;
 
   begin
 
      Term_Address.Port := 5876;
 
      Sockets.Create_Socket (Socket);
 
      Sockets.Set_Socket_Option
        (Socket,
         Sockets.Socket_Level,
         (Sockets.Reuse_Address, True));
 
      delay 0.2;
 
      Sockets.Connect_Socket (Socket, Term_Address);
 
      Channel :=  Sockets.stream(Socket);
 
      loop
         Response := new String ' (String'Input(Channel));
         Print(Response.all, 0.02, False);
         Command := new String ' (Text_Io.Get_Line);
         String'Output(Channel, Command.all);
         Status := Boolean'Input(Channel);
         case Status is
            when True =>
               null;
            when False =>
               null;
         end case;
      end loop;
   end Run;