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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include "iki.h"
# IKI_LDDRIVER -- Load an IKI kernel into the kernel table, i.e., make a new
# kernel entry in the table containing the entry point address of each of the
# kernel procedures.
procedure iki_lddriver (kname, ex_open, ex_close, ex_opix, ex_updhdr,
ex_access, ex_copy, ex_delete, ex_rename, flags)
char kname[ARB]
extern ex_open(), ex_close(), ex_opix(), ex_updhdr()
extern ex_access(), ex_copy(), ex_delete(), ex_rename()
int locpr()
int flags
include "iki.com"
errchk syserr
begin
if (k_nkernels + 1 > MAX_KERNELS)
call syserr (SYS_IKIKTBLOVFL)
else
k_nkernels = k_nkernels + 1
call strcpy (kname, IKI_KNAME(k_nkernels), SZ_KNAME)
IKI_OPEN(k_nkernels) = locpr (ex_open)
IKI_CLOSE(k_nkernels) = locpr (ex_close)
IKI_OPIX(k_nkernels) = locpr (ex_opix)
IKI_UPDHDR(k_nkernels) = locpr (ex_updhdr)
IKI_ACCESS(k_nkernels) = locpr (ex_access)
IKI_COPY(k_nkernels) = locpr (ex_copy)
IKI_DELETE(k_nkernels) = locpr (ex_delete)
IKI_RENAME(k_nkernels) = locpr (ex_rename)
IKI_FLAGS(k_nkernels) = flags
end
|
