blob: d50ee01d2c4e2e11386d6f417f5fb58ec7f0af2c (
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 <syserr.h>
include <fio.h>
# NOTE -- Note offset in file for a subsequent SEEK. If text file, the offset
# of the current line is returned; it is only permissible to seek to the
# beginning of a line on a text file. If binary file, the offset returned is
# the offset at which the next BUFFERED i/o transfer will occur. If file is
# being accessed unbuffered random, the concept of file position is meaningless.
long procedure note (fd)
int fd
errchk filerr
include <fio.com>
begin
fp = fiodes[fd]
if (fd <= 0 || fp == NULL)
call filerr (FNAME(fp), SYS_FILENOTOPEN)
if (FTYPE(fp) == TEXT_FILE) {
call zcall2 (ZNOTTX(fp), FCHAN(fp), boffset[fd])
return (boffset[fd])
} else
return (LNOTE(fd))
end
|
