BSD 4_2 release

[unix-history] / usr / src / usr.lib / libU77 / hostnm_.c

/*
* hostnm - return this machines hostname
*      @(#)hostnm_.c   1.1
*
* synopsis:
*      integer function hostnm (name)
*      character(*) name
*
* where:
*      name    will receive the host name
*      The returned value will be 0 if successful, an error number otherwise.
*/

extern int      errno;

long
hostnm_ (name, len)
char    *name;
long    len;
{
       char    buf[64];
       register char   *bp;
       int     blen    = sizeof buf;

       if (gethostname (buf, blen) == 0)
       {
               b_char (buf, name, len);
               return (0L);
       }
       else
               return((long)errno);
}