raw
udp_genesis             1 ------------------------------------------------------------------------------
udp_genesis             2 ------------------------------------------------------------------------------
udp_genesis             3 -- This file is part of 'UDP Tx Demo', accompanies 'UDP' library.           --
udp_genesis             4 --                                                                          --
udp_genesis             5 -- (C) 2018 Stanislav Datskovskiy ( www.loper-os.org )                      --
udp_genesis             6 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html     --
udp_genesis             7 --                                                                          --
udp_genesis             8 -- You do not have, nor can you ever acquire the right to use, copy or      --
udp_genesis             9 -- distribute this software ; Should you use this software for any purpose, --
udp_genesis            10 -- or copy and distribute it to anyone or in any manner, you are breaking   --
udp_genesis            11 -- the laws of whatever soi-disant jurisdiction, and you promise to         --
udp_genesis            12 -- continue doing so for the indefinite future. In any case, please         --
udp_genesis            13 -- always : read and understand any software ; verify any PGP signatures    --
udp_genesis            14 -- that you use - for any purpose.                                          --
udp_genesis            15 --                                                                          --
udp_genesis            16 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm .     --
udp_genesis            17 ------------------------------------------------------------------------------
udp_genesis            18 ------------------------------------------------------------------------------
udp_genesis            19 
udp_genesis            20 with Ada.Text_IO; use Ada.Text_IO;
udp_genesis            21 with Interfaces; use Interfaces;
udp_genesis            22 
udp_genesis            23 with UDP; use UDP;
udp_genesis            24 
udp_genesis            25 
udp_genesis            26 procedure UDP_Tx_Demo is
udp_genesis            27    
udp_genesis            28    Socket           : UDP.Socket;
udp_genesis            29    
udp_genesis            30    
udp_genesis            31    Local_Endpoint   : UDP.Endpoint := (Address => UDP.INADDR_ANY,
udp_genesis            32                                        Port    => 5000);
udp_genesis            33    
udp_genesis            34    Remote_Endpoint   : UDP.Endpoint
udp_genesis            35      := (Address => UDP.IP_From_String("0.0.0.0"),
udp_genesis            36          Port    => 7000);
udp_genesis            37    
udp_genesis            38    ----- Dulap test, replace with your own  -----
udp_genesis            39    --  Remote_Endpoint   : UDP.Endpoint
udp_genesis            40    --    := (Address => UDP.IP_From_String("161.0.121.200"),
udp_genesis            41    --        Port    => 7000);
udp_genesis            42    ----------------------------------------------
udp_genesis            43    
udp_genesis            44    Sent_Payload     : UDP.Payload;
udp_genesis            45    Received_Payload : UDP.Payload;
udp_genesis            46    Received_Origin  : UDP.Endpoint;
udp_genesis            47    Received_Valid   : Boolean;
udp_genesis            48    
udp_genesis            49 begin
udp_genesis            50    Put_Line("Generating " &
udp_genesis            51               UDP.Payload_Size'Image(Sent_Payload'Length) & "-byte turd...");
udp_genesis            52    
udp_genesis            53    for I in Sent_Payload'Range loop
udp_genesis            54       Sent_Payload(I) := Unsigned_8(I mod 256);
udp_genesis            55    end loop;
udp_genesis            56    
udp_genesis            57    Put_Line("Opening socket on local endpoint " &
udp_genesis            58               UDP.IP_To_String(Local_Endpoint.Address) &
udp_genesis            59               " :" & UDP.IP_Port'Image(Local_Endpoint.Port) & "...");
udp_genesis            60    
udp_genesis            61    UDP.Open_Socket(Socket, Local_Endpoint);
udp_genesis            62    
udp_genesis            63    Put_Line("Sending turd to " &
udp_genesis            64               UDP.IP_To_String(Remote_Endpoint.Address) &
udp_genesis            65               " :" & UDP.IP_Port'Image(Remote_Endpoint.Port) & "...");
udp_genesis            66    
udp_genesis            67    UDP.Transmit(Socket, Remote_Endpoint, Sent_Payload);
udp_genesis            68    
udp_genesis            69    Put_Line("Waiting for echo...");
udp_genesis            70    
udp_genesis            71    UDP.Receive(Socket, Received_Origin, Received_Payload, Received_Valid);
udp_genesis            72    
udp_genesis            73    Put_Line("Received payload from " &
udp_genesis            74               UDP.IP_To_String(Received_Origin.Address) &
udp_genesis            75               " :" & UDP.IP_Port'Image(Received_Origin.Port) & "...");
udp_genesis            76    
udp_genesis            77    if Received_Valid then
udp_genesis            78       
udp_genesis            79       if Received_Payload = Sent_Payload then
udp_genesis            80          Put_Line("Echo came back equal to the send turd!");
udp_genesis            81       else
udp_genesis            82          Put_Line("Echo came back mutilated!");
udp_genesis            83       end if;
udp_genesis            84       
udp_genesis            85    else
udp_genesis            86       
udp_genesis            87       Put_Line("Received short payload, ignored.");
udp_genesis            88       
udp_genesis            89    end if;
udp_genesis            90    
udp_errata_asciil...   91    UDP.Close_Socket(Socket);
udp_errata_asciil...   92    
udp_genesis            93    Put_Line("Done.");
udp_genesis            94 
udp_genesis            95 end UDP_Tx_Demo;