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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
include "ms.h"
# The procedures in this file deal with the mapping of the
# database names to the MULTISPEC identifiers and relations between the
# identifiers and their meaning.
#
# MSNAMES -- Allocate memory and set name array in MULTISPEC data structure.
# MS_DB_ID -- Associate a database name to the MULTISPEC identifier.
# IS_PARAM_ID -- Test if an identifier refers to a model parameter.
# IS_FIT_ID -- Test if an identifier refers to a curfit parameter fit.
# MS_FIT_ID -- Return fit identifier for specified parameter identifier.
# MS_MODEL_ID -- CL get a model name and map to a MULTISPEC identifier.
# MSNAMES -- Allocate memory and set the name array in MULTISPEC data structure.
#
# The name array maps the integer identifiers with the names in the
# database. The name array is also allocated if necessary.
# This is the only place where the database names are explicitly known.
procedure msnames (ms)
pointer ms
begin
if (MS_NAMES(ms) == NULL)
call calloc (MS_NAMES(ms), MS_DB_ENTRIES * (SZ_MS_KEY + 1), TY_CHAR)
# Set name array mapping the MULTISPEC IDs to the database names.
call sprintf (NAME(ms, HDR), SZ_MS_KEY, "header")
call sprintf (NAME(ms, COMMENTS), SZ_MS_KEY, "comments")
call sprintf (NAME(ms, SAMPLE), SZ_MS_KEY, "samples")
call sprintf (NAME(ms, I0), SZ_MS_KEY, "i0")
call sprintf (NAME(ms, X0), SZ_MS_KEY, "x0")
call sprintf (NAME(ms, X0_FIT), SZ_MS_KEY, "x0 fit")
call sprintf (NAME(ms, S0), SZ_MS_KEY, "s0")
call sprintf (NAME(ms, S1), SZ_MS_KEY, "s1")
call sprintf (NAME(ms, S2), SZ_MS_KEY, "s2")
call sprintf (NAME(ms, S0_FIT), SZ_MS_KEY, "s0 fit")
call sprintf (NAME(ms, S1_FIT), SZ_MS_KEY, "s1 fit")
call sprintf (NAME(ms, S2_FIT), SZ_MS_KEY, "s2 fit")
end
# MS_DB_ID -- Associate a database name to the MULTISPEC identifier.
#
# The input entry name is matched with a database name and the
# MULTISPEC identifier is returned.
int procedure ms_db_id (ms, entry)
pointer ms
char entry[ARB]
int i
bool streq()
begin
do i = 1, MS_DB_ENTRIES
if (streq (entry, NAME(ms, i)))
return (i)
return (0)
end
# IS_PARAM_ID -- Test if an identifier refers to a model parameter.
bool procedure is_param_id (param_id)
int param_id
begin
switch (param_id) {
case X0, I0, S0, S1, S2:
return (TRUE)
default:
return (FALSE)
}
end
# IS_FIT_ID -- Test if an identifier refers to a parameter fit.
bool procedure is_fit_id (fit_id)
int fit_id
begin
switch (fit_id) {
case X0_FIT, S0_FIT, S1_FIT, S2_FIT:
return (TRUE)
default:
return (FALSE)
}
end
# MS_FIT_ID -- Return fit identifier for specified parameter identifier.
int procedure ms_fit_id (param_id)
int param_id
begin
switch (param_id) {
case X0:
return (X0_FIT)
case S0:
return (S0_FIT)
case S1:
return (S1_FIT)
case S2:
return (S2_FIT)
default:
return (ERR)
}
end
# MS_MODEL_ID -- CL get a model name and map to a MULTISPEC identifier.
#
# This procedure isolates the model definitions to protect against
# changes in the model names or the order and choice of identifiers
# in ms.h.
int procedure ms_model_id (param)
char param[ARB] # CL parameter name
char str[SZ_LINE]
int i, clgwrd()
begin
i = clgwrd (param, str, SZ_LINE, ",gauss5,smooth,")
switch (i) {
case 1:
return (GAUSS5)
case 2:
return (SMOOTH)
}
end
|
