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
90
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "mwcs.h"
include "mwsv.h"
# MW_SAVE -- Save the contents of a MWCS descriptor, i.e., the MWCS object,
# in a machine independent binary array. This may be stored in a file or
# database, passed through a network interface, etc., and later reopened
# on a descriptor with MW_LOAD or MW_OPEN.
int procedure mw_save (o_mw, bp, buflen)
pointer o_mw #I pointer to MWCS descriptor
pointer bp #U pointer to save buffer of type char
int buflen #U allocated length of save buffer
int nchars, olen
pointer mw, sp, sv, op, oo
errchk coerce, realloc, mw_newcopy
pointer coerce(), mw_newcopy()
int pl_p2li()
begin
call smark (sp)
call salloc (sv, LEN_SVHDR, TY_STRUCT)
# We save a new copy of the MWCS, rather than the MWCS itself,
# to discard any dead storage and to cause the runtime descriptor
# pointers to be set to NULL.
mw = mw_newcopy (o_mw)
# Clear runtime fields that cannot be meaningfully saved.
MI_WCS(mw) = NULL
MI_REFIM(mw) = NULL
call aclri (MI_AXNO(mw,1), MAX_DIM)
call aclri (MI_AXVAL(mw,1), MAX_DIM)
call aclri (MI_PHYSAX(mw,1), MAX_DIM)
# Compress the main header to save space.
call salloc (oo, MI_LEN(mw) * 3 + 32, TY_SHORT)
olen = pl_p2li (Memi[mw], 1, Mems[oo], MI_LEN(mw))
# Determine how much space will be needed.
nchars = LEN_SVHDR * SZ_STRUCT + olen * SZ_SHORT +
(MI_DBUFUSED(mw) + 1) * SZ_DOUBLE +
(MI_SBUFUSED(mw) + SZB_CHAR-1) / SZB_CHAR
# Get the space.
if (nchars > buflen) {
call realloc (bp, nchars, TY_CHAR)
buflen = nchars
}
# Prepare the save header.
call aclri (Memi[sv], LEN_SVHDR)
SV_MAGIC(sv) = MWSV_MAGIC
SV_CWCSLEN(sv) = olen
SV_MWSVLEN(sv) = MI_LEN(mw)
SV_DBUFLEN(sv) = MI_DBUFUSED(mw)
SV_SBUFLEN(sv) = MI_SBUFUSED(mw)
SV_MWSVOFF(sv) = LEN_SVHDR * SZ_STRUCT
SV_DBUFOFF(sv) = (SV_MWSVOFF(sv) + olen * SZ_SHORT + SZ_DOUBLE-1) /
SZ_DOUBLE * SZ_DOUBLE
SV_SBUFOFF(sv) = SV_DBUFOFF(sv) + MI_DBUFUSED(mw) * SZ_DOUBLE
SV_VERSION(sv) = MWSV_VERSION
SV_NWCS(sv) = MI_NWCS(mw)
SV_LENWCS(sv) = LEN_WCS
# Output the save header.
op = coerce (bp, TY_CHAR, TY_STRUCT)
call miipak32 (Memi[sv], Memi[op], LEN_SVHDR, TY_INT)
# Store the three segments of the MWCS, i.e., the main descriptor
# and the data and string buffers.
op = coerce (bp + SV_MWSVOFF(sv), TY_CHAR, TY_SHORT)
call miipak16 (Mems[oo], Mems[op], olen, TY_SHORT)
op = coerce (bp + SV_DBUFOFF(sv), TY_CHAR, TY_DOUBLE)
call miipakd (D(mw,1), Memd[op], SV_DBUFLEN(sv), TY_DOUBLE)
op = coerce (bp + SV_SBUFOFF(sv), TY_CHAR, TY_CHAR)
call miipak8 (S(mw,1), Memc[op], SV_SBUFLEN(sv), TY_CHAR)
call mw_close (mw)
call sfree (sp)
return (nchars)
end
|
