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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "fmio.h"
# FM_LFOPEN -- Open an lfile. This routine is designed to be called with a
# pseudo-filename identifying the FMIO datafile, lfile therein, and file type.
# This is necessary to conform to the binary file driver interface standard.
procedure fm_lfopen (pk_lfname, mode, chan)
char pk_lfname[ARB] #I encoded lfile specification (packed char)
int mode #I file access mode
int chan #O i/o channel assigned (descriptor)
int flags, lfile, type, np, i
pointer sp, lfname, fm, lf, pt, pm
int kmalloc(), krealloc(), fm_lfparse()
define err_ 91
begin
call smark (sp)
call salloc (lfname, SZ_FNAME, TY_CHAR)
flags = 0
# Parse the file spec.
call strupk (pk_lfname, Memc[lfname], SZ_FNAME)
if (fm_lfparse (Memc[lfname], fm, lfile, type) == ERR)
goto err_
else if (type == TEXT_FILE)
flags = flags + LFF_TEXTFILE
# Verify input.
if (FM_MAGIC(fm) != FMIO_MAGIC)
goto err_
else if (lfile < 0 || lfile > FM_NLFILES(fm))
goto err_
else if (lfile == PT_LFILE && mode != READ_ONLY)
goto err_ # protect page table!
lf = FM_FTABLE(fm) + lfile * LEN_FTE
# Activate the descriptor?
if (LF_PAGEMAP(lf) == NULL) {
LF_PMLEN(lf) = DEF_PMLEN
if (kmalloc (LF_PAGEMAP(lf), DEF_PMLEN, TY_INT) == ERR)
goto err_
pm = LF_PAGEMAP(lf)
pt = FM_PTABLE(fm)
np = 0
# Determine the lfile pages from the global page table.
do i = 1, FM_PTNPTE(fm)
if (Mems[pt+i-1] == lfile) {
np = np + 1
if (np > LF_PMLEN(lf)) {
LF_PMLEN(lf) = (np+INC_PMLEN-1) / INC_PMLEN * INC_PMLEN
if (krealloc (pm, LF_PMLEN(lf), TY_INT) == ERR)
goto err_
LF_PAGEMAP(lf) = pm
}
Memi[pm+np-1] = i
}
LF_NPAGES(lf) = np
}
# Mode dependent processing.
if (mode == NEW_FILE || and (LF_FLAGS(lf), LFF_DELETED) != 0) {
LF_FSIZE(lf) = 0
LF_FLAGS(lf) = flags
}
LF_FM(lf) = fm
LF_STATUS(lf) = 0
LF_FLAGS(lf) = or (LFF_ALLOCATED,
and (LF_FLAGS(lf), not(LFF_IOINPROGRESS)))
FM_DHMODIFIED(fm) = YES
chan = lf
call fmio_tick (fm)
call sfree (sp)
return
err_
chan = ERR
call sfree (sp)
end
|
