* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* integer stat, statb(12)
* call stat (name, statb)
* 'statb' will receive the stat structure for file 'name'.
#include "../libI77/f_errno.h"
long stat_(name
, stbuf
, namlen
)
char *name
; long *stbuf
, namlen
;
if (namlen
>= sizeof buf
)
return((long)(errno
=F_ERARG
));
g_char(name
, namlen
, buf
);
if (stat(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
;