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
|
include "../../lib/ptkeysdef.h"
include "pexamine.h"
# PT_RXYDATA -- Load the data for the input columns from the structure.
int procedure pt_rxydata (px, xptr, yptr)
pointer px # pointer to the pexamine structure
pointer xptr # pointer to the X coordinate array
pointer yptr # pointer to the Y coordinate array
int data_invalid, field
pointer sp, str
int strdic()
begin
data_invalid = NO
# Allocate some temporary memory
call smark (sp)
call salloc (str, PX_SZCOLNAME, TY_CHAR)
# Load the x column.
field = strdic (PX_XCOLNAME(px), Memc[str], PX_SZCOLNAME,
Memc[PX_COLNAMES(px)])
if (field > 0)
xptr = Memi[PX_COLPTRS(px)+field-1]
else {
xptr = NULL
data_invalid = YES
}
# Load the y column.
field = strdic (PX_YCOLNAME(px), Memc[str], PX_SZCOLNAME,
Memc[PX_COLNAMES(px)])
if (field > 0)
yptr = Memi[PX_COLPTRS(px)+field-1]
else {
yptr = NULL
data_invalid = YES
}
call sfree (sp)
return (data_invalid)
end
# PT_RHDATA -- Load the data for the histogram column from the structure.
int procedure pt_rhdata (px, xptr)
pointer px # pointer to the pexamine structure
pointer xptr # array containing the x points
int data_invalid, field
pointer sp, str
int strdic()
begin
data_invalid = NO
# Allocate some temporary memory
call smark (sp)
call salloc (str, PX_SZCOLNAME, TY_CHAR)
# Load the x column.
field = strdic (PX_HCOLNAME(px), Memc[str], PX_SZCOLNAME,
Memc[PX_COLNAMES(px)])
if (field > 0)
xptr = Memi[PX_COLPTRS(px)+field-1]
else {
xptr = NULL
data_invalid = YES
}
call sfree (sp)
return (data_invalid)
end
# PT_RCOODATA -- Load the coordinate data from the structure.
int procedure pt_rcoodata (px, xptr, yptr)
pointer px # pointer to the pexamine structure
pointer xptr # pointer to x coordinates array
pointer yptr # pointer to y coordinates array
int data_invalid, field
pointer sp, str
int strdic()
begin
data_invalid = NO
# Allocate some temporary memory
call smark (sp)
call salloc (str, PX_SZCOLNAME, TY_CHAR)
# Load the x coordinate.
field = strdic (PX_XPOSNAME(px), Memc[str], PX_SZCOLNAME,
Memc[PX_COLNAMES(px)])
if (field > 0)
xptr = Memi[PX_COLPTRS(px)+field-1]
else {
data_invalid = YES
xptr = NULL
}
# Load the y coordinate.
field = strdic (PX_YPOSNAME(px), Memc[str], PX_SZCOLNAME,
Memc[PX_COLNAMES(px)])
if (field > 0)
yptr = Memi[PX_COLPTRS(px)+field-1]
else {
data_invalid = YES
yptr = NULL
}
call sfree (sp)
return (data_invalid)
end
|
