* Copyright (c) 1980 The Regents of the University of California.
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
static char sccsid
[] = "@(#)lstat_.c 5.2 (Berkeley) 4/12/91";
* integer lstat, statb(12)
* ierr = lstat (name, statb)
* 'statb' will receive the stat structure for file 'name'.
#include "../libI77/f_errno.h"
long lstat_(name
, stbuf
, namlen
)
char *name
; long *stbuf
, namlen
;
if (namlen
>= sizeof buf
)
return((long)(errno
=F_ERARG
));
g_char(name
, namlen
, buf
);
if (lstat(buf
, &statb
) == 0)
*stbuf
++ = statb
.st_mode
;
*stbuf
++ = statb
.st_nlink
;
*stbuf
++ = statb
.st_rdev
;
*stbuf
++ = statb
.st_size
;
*stbuf
++ = statb
.st_atime
;
*stbuf
++ = statb
.st_mtime
;
*stbuf
++ = statb
.st_ctime
;
*stbuf
++ = statb
.st_blksize
;