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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gtools.h"
# GT_COPY -- Copy values of one structure to another.
procedure gt_copy (gt1, gt2)
pointer gt1, gt2
int len, strlen()
pointer gt_init()
begin
if (gt1 == NULL)
call error (0, "gt_copy: Undefined gtools structure")
if (gt2 == NULL)
gt2 = gt_init ()
else {
call mfree (GT_PARAMS(gt2), TY_CHAR)
call mfree (GT_TITLE(gt2), TY_CHAR)
call mfree (GT_SUBTITLE(gt2), TY_CHAR)
call mfree (GT_COMMENTS(gt2), TY_CHAR)
call mfree (GT_XLABEL(gt2), TY_CHAR)
call mfree (GT_YLABEL(gt2), TY_CHAR)
call mfree (GT_XUNITS(gt2), TY_CHAR)
call mfree (GT_YUNITS(gt2), TY_CHAR)
call mfree (GT_XFORMAT(gt2), TY_CHAR)
call mfree (GT_YFORMAT(gt2), TY_CHAR)
}
call amovi (Memi[gt1], Memi[gt2], LEN_GT)
if (GT_PARAMS(gt1) != NULL) {
len = strlen (Memc[GT_PARAMS(gt1)])
call malloc (GT_PARAMS(gt2), len, TY_CHAR)
call strcpy (Memc[GT_PARAMS(gt1)], Memc[GT_PARAMS(gt2)], len)
}
if (GT_TITLE(gt1) != NULL) {
len = strlen (Memc[GT_TITLE(gt1)])
call malloc (GT_TITLE(gt2), len, TY_CHAR)
call strcpy (Memc[GT_TITLE(gt1)], Memc[GT_TITLE(gt2)], len)
}
if (GT_SUBTITLE(gt1) != NULL) {
len = strlen (Memc[GT_SUBTITLE(gt1)])
call malloc (GT_SUBTITLE(gt2), len, TY_CHAR)
call strcpy (Memc[GT_SUBTITLE(gt1)], Memc[GT_SUBTITLE(gt2)], len)
}
if (GT_COMMENTS(gt1) != NULL) {
len = strlen (Memc[GT_COMMENTS(gt1)])
call malloc (GT_COMMENTS(gt2), len, TY_CHAR)
call strcpy (Memc[GT_COMMENTS(gt1)], Memc[GT_COMMENTS(gt2)], len)
}
if (GT_XLABEL(gt1) != NULL) {
len = strlen (Memc[GT_XLABEL(gt1)])
call malloc (GT_XLABEL(gt2), len, TY_CHAR)
call strcpy (Memc[GT_XLABEL(gt1)], Memc[GT_XLABEL(gt2)], len)
}
if (GT_YLABEL(gt1) != NULL) {
len = strlen (Memc[GT_YLABEL(gt1)])
call malloc (GT_YLABEL(gt2), len, TY_CHAR)
call strcpy (Memc[GT_YLABEL(gt1)], Memc[GT_YLABEL(gt2)], len)
}
if (GT_XUNITS(gt1) != NULL) {
len = strlen (Memc[GT_XUNITS(gt1)])
call malloc (GT_XUNITS(gt2), len, TY_CHAR)
call strcpy (Memc[GT_XUNITS(gt1)], Memc[GT_XUNITS(gt2)], len)
}
if (GT_YUNITS(gt1) != NULL) {
len = strlen (Memc[GT_YUNITS(gt1)])
call malloc (GT_YUNITS(gt2), len, TY_CHAR)
call strcpy (Memc[GT_YUNITS(gt1)], Memc[GT_YUNITS(gt2)], len)
}
if (GT_XFORMAT(gt1) != NULL) {
len = strlen (Memc[GT_XFORMAT(gt1)])
call malloc (GT_XFORMAT(gt2), len, TY_CHAR)
call strcpy (Memc[GT_XFORMAT(gt1)], Memc[GT_XFORMAT(gt2)], len)
}
if (GT_YFORMAT(gt1) != NULL) {
len = strlen (Memc[GT_YFORMAT(gt1)])
call malloc (GT_YFORMAT(gt2), len, TY_CHAR)
call strcpy (Memc[GT_YFORMAT(gt1)], Memc[GT_YFORMAT(gt2)], len)
}
end
|
