blob: 40cc7fc1718df14f6ccc9798d46a408b321c38b4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <finfo.h>
include <syserr.h>
# FOWNER -- Get the name of the owner of a file.
procedure fowner (fname, owner, maxch)
char fname[ARB] # file name
char owner[ARB] # owner name string
int maxch # max chars in owner name string
long file_info[LEN_FINFO]
int finfo()
begin
if (finfo (fname, file_info) == ERR)
call filerr (fname, SYS_FOWNER)
call strcpy (FI_OWNER(file_info), owner, maxch)
end
|
