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
|
// $Id: StationRef.cc,v 1.2 2002/10/01 18:04:31 flaterco Exp $
/* StationRef Index information for a station in a harmonics file.
Copyright (C) 1998 David Flater.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include "common.hh"
Station *ReferenceStationRef::load(TideContext *in_context) {
HarmonicsFile h (*harmonicsFileName, in_context->settings);
return h.getStation ((*this), in_context);
}
StationRef::StationRef () {
harmonicsFileName = NULL;
}
int ReferenceStationRef::is_reference_station() const {
return 1;
}
int SubordinateStationRef::is_reference_station() const {
return 0;
}
void StationRef::shortHarmonicsFileName (Dstr &text_out) {
assert (harmonicsFileName);
text_out = *harmonicsFileName;
int index = text_out.strrchr ('/');
if (index != -1)
text_out /= index+1;
}
Station *SubordinateStationRef::load(TideContext *in_context) {
if (!offsets) {
Dstr details ("The offending station was ");
details += name;
barf (NOOFFSETSFOUND, details);
}
if (!rsr) {
StationRef *sr;
sr = (in_context->stationIndex())->reffirstlookup(source);
if (!sr) {
Dstr details ("Could not find reference station ");
details += source;
details += "\nneeded by subordinate station ";
details += name;
details += ".";
barf (STATION_NOT_FOUND, details);
}
if (!(sr->is_reference_station())) {
Dstr details ("The subordinate station ");
details += name;
details +="\ndepends on ";
details += source;
details += "\nwhich matched the subordinate station named ";
details += sr->name;
details += ".";
barf (SUB_SUBORDINATE, details);
}
rsr = (ReferenceStationRef*)sr; // Save for the next rainy day.
}
HarmonicsFile h (*(rsr->harmonicsFileName), in_context->settings);
ReferenceStation *rs = (ReferenceStation *) h.getStation (*rsr, in_context);
return new SubordinateStation (rs, this);
}
StationRef::~StationRef() {
}
|
