blob: 469d0cc2627a5c4cd475f7fc15f8ba28f202e1c1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <fset.h>
include <syserr.h>
include <fio.h>
# FSTATS -- Return a file status value of type string (s).
procedure fstats (fd, what, outstr, maxch)
int fd, what, maxch
char outstr[ARB]
pointer ffp
errchk syserr
include <fio.com>
begin
ffp = fiodes[fd]
if (fd <= 0 || ffp == NULL)
call syserr (SYS_FILENOTOPEN)
switch (what) {
case F_FILENAME:
call strcpy (FNAME(ffp), outstr, maxch)
default:
call filerr (FNAME(ffp), SYS_FSTATUNKPAR)
}
end
|
