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
91
92
93
94
95
96
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <fset.h>
include <imhdr.h>
include <imio.h>
include "idb.h"
# IMADDF -- Add a user field to the image header. It is an error if the named
# field already exists.
procedure imaddf (im, key, datatype)
pointer im #I image descriptor
char key[ARB] #I name of the new parameter
char datatype[ARB] #I string permits generalization to domains
pointer rp, sp, keyname, ua, ip
int fd, max_lenuserarea, curlen, buflen, nchars
int idb_kwlookup(), idb_findrecord()
int stropen(), strlen(), idb_filstr(), nowhite()
errchk syserrs, stropen, fprintf, pargstr, pargi
begin
call smark (sp)
call salloc (keyname, SZ_FNAME, TY_CHAR)
# FITS format requires that the keyword name be upper case, not to
# exceed 8 characters in length. [Nov97 - This is not entirely
# correct, FITS does not require upper case, however we don't want
# to change this at this time.]
nchars = idb_filstr (key, Memc[keyname], IDB_SZFITSKEY)
nchars = nowhite (Memc[keyname], Memc[keyname], IDB_SZFITSKEY)
call strupr (Memc[keyname])
# Check for a redefinition.
if ((idb_kwlookup (key) > 0) || (idb_findrecord (im, key, rp) > 0))
call syserrs (SYS_IDBREDEF, key)
# Open the user area string for appending. 'buflen' is the malloc-ed
# buffer length in struct units; IMU is the struct offset to the user
# area, i.e., the size of that part of the image descriptor preceding
# the user area. If the buffer fills we must allow one extra char for
# the EOS delimiter; since storage for the image descriptor was
# allocated in struct units the storage allocator will not have
# allocated space for the extra EOS char.
ua = IM_USERAREA(im)
curlen = strlen (Memc[ua])
buflen = LEN_IMDES + IM_LENHDRMEM(im)
max_lenuserarea = (buflen - IMU) * SZ_STRUCT - 1
# If the user area is not empty the last character must be the newline
# record delimiter, else the new record we add will be invalid.
if (curlen > 0 && Memc[ua+curlen-1] != '\n')
if (curlen >= max_lenuserarea)
call syserrs (SYS_IDBOVFL, key)
else {
Memc[ua+curlen] = '\n'
curlen = curlen + 1
Memc[ua+curlen] = EOS
}
fd = stropen (Memc[ua+curlen], max_lenuserarea-curlen, APPEND)
# Append the new record with an uninitialized value field.
iferr {
call fprintf (fd, "%-8s= %s%*t\n")
call pargstr (Memc[keyname])
if (datatype[1] == 'c') {
call pargstr ("' '")
call pargi (IDB_LENSTRINGRECORD + 1)
} else {
call pargstr ("")
call pargi (IDB_LENNUMERICRECORD + 1)
}
} then {
# Out of space in the user area. Discard the truncated card at the
# end of the buffer by backing up to the last newline and writing
# an EOS.
call close (fd)
for (ip=ua+max_lenuserarea-1; ip > ua; ip=ip-1)
if (Memc[ip] == '\n') {
Memc[ip+1] = EOS
break
}
call syserrs (SYS_IDBOVFL, key)
}
call close (fd)
call sfree (sp)
end
|
