Hostname: Difference between revisions

Line 4:
 
=={{header|Ada}}==
Works with GCC/GNAT.Sockets;
Depending on need.
with Ada.Text_IO;
<pre>
Ada.Text_IO.Put_Line(Name : constant string := GNAT.Sockets.Host_Name);
procedure Hostname is
 
begin
Name : Unbounded_String;
Ada.Text_IO.Put_Line(GNAT.Sockets.Host_Name);
Name := TO_Unbounded(GNAT.Sockets.Host_Name);
end Hostname
 
Name : Access String;
Name := new String'(GNAT.Sockets.Host_Name);
</pre>
 
Anonymous user