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
|
include <error.h>
include <ctype.h>
include <fset.h> # FIO
include <tbset.h> # TBtables
# GT_HINFO -- Get the title and axes labels for the plot
procedure gt_hinfo (tp, xlabel, ylabel, xcolumn, ycolumn, maxch)
pointer tp # Table pointer
char xlabel[SZ_LINE] # Axis label strings (output)
char ylabel[SZ_LINE] # Axis label strings (output)
char xcolumn[SZ_COLNAME] # X column
char ycolumn[SZ_COLNAME] # Y column
int maxch
char colunit[SZ_COLUNITS]
char errmsg[SZ_LINE] # Error message
pointer xcd, ycd
int strlen()
bool streq()
begin
# Single table; X and Y column
if (!streq (xcolumn, NULL)) {
call tbcfnd (tp, xcolumn, xcd, 1)
if (xcd <= 0) {
call sprintf (errmsg, SZ_LINE, "Cannot find column %s")
call pargstr (xcolumn)
call error (0, errmsg)
}
# X axis label comes from column name
call sprintf (xlabel, maxch, "%s")
call pargstr (xcolumn)
} else {
call sprintf (xlabel, maxch, "%s")
call pargstr ("Number")
}
# Find the column units
call tbcigt (xcd, TBL_COL_UNITS, colunit, SZ_COLUNITS)
if (colunit[1] != EOS) {
# Column units exist; append to X label
call sprintf (xlabel[strlen (xlabel)+1], maxch, " [%s]")
call pargstr (colunit)
}
call tbcfnd (tp, ycolumn, ycd, 1)
if (ycd <= 0) {
call sprintf (errmsg, SZ_LINE, "Cannot find column %s")
call pargstr (ycolumn)
call error (0, errmsg)
}
# Y label comes from column name
call sprintf (ylabel, maxch, "%s")
call pargstr (ycolumn)
# Find the column units
call tbcigt (ycd, TBL_COL_UNITS, colunit, SZ_COLUNITS)
if (colunit[1] != EOS) {
# Column units exist; append to Y label
call sprintf (ylabel[strlen (ylabel)+1], maxch, " [%s]")
call pargstr (colunit)
}
end
|
