1*12013Sdlw /* 2*12013Sdlw * hostnm - return this machines hostname 3*12013Sdlw * @(#)hostnm_.c 1.1 4*12013Sdlw * 5*12013Sdlw * synopsis: 6*12013Sdlw * integer function hostnm (name) 7*12013Sdlw * character(*) name 8*12013Sdlw * 9*12013Sdlw * where: 10*12013Sdlw * name will receive the host name 11*12013Sdlw * The returned value will be 0 if successful, an error number otherwise. 12*12013Sdlw */ 13*12013Sdlw 14*12013Sdlw extern int errno; 15*12013Sdlw 16*12013Sdlw long 17*12013Sdlw hostnm_ (name, len) 18*12013Sdlw char *name; 19*12013Sdlw long len; 20*12013Sdlw { 21*12013Sdlw char buf[64]; 22*12013Sdlw register char *bp; 23*12013Sdlw int blen = sizeof buf; 24*12013Sdlw 25*12013Sdlw if (gethostname (buf, blen) == 0) 26*12013Sdlw { 27*12013Sdlw b_char (buf, name, len); 28*12013Sdlw return (0L); 29*12013Sdlw } 30*12013Sdlw else 31*12013Sdlw return((long)errno); 32*12013Sdlw } 33