[0badc31] | 1 | /* cavern.h |
---|
[bb90203] | 2 | * SURVEX Cave surveying software - header file |
---|
[fdffa7d] | 3 | * Copyright (C) 1991-2024 Olly Betts |
---|
[44bb30d] | 4 | * Copyright (C) 2004 Simeon Warner |
---|
[846746e] | 5 | * |
---|
[89231c4] | 6 | * This program is free software; you can redistribute it and/or modify |
---|
| 7 | * it under the terms of the GNU General Public License as published by |
---|
| 8 | * the Free Software Foundation; either version 2 of the License, or |
---|
| 9 | * (at your option) any later version. |
---|
[846746e] | 10 | * |
---|
| 11 | * This program is distributed in the hope that it will be useful, |
---|
| 12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
[89231c4] | 13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
| 14 | * GNU General Public License for more details. |
---|
[846746e] | 15 | * |
---|
[89231c4] | 16 | * You should have received a copy of the GNU General Public License |
---|
| 17 | * along with this program; if not, write to the Free Software |
---|
[d333899] | 18 | * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
---|
[bb90203] | 19 | */ |
---|
| 20 | |
---|
[3875c32] | 21 | #ifndef CAVERN_H |
---|
| 22 | #define CAVERN_H |
---|
| 23 | |
---|
[05c700b] | 24 | /* Using covariances increases the memory required somewhat - may be |
---|
| 25 | * desirable to disable this for small memory machines */ |
---|
| 26 | |
---|
[93ac03a] | 27 | /* #define NO_COVARIANCES 1 */ |
---|
[bb90203] | 28 | |
---|
| 29 | #include <stdio.h> |
---|
| 30 | #include <stdlib.h> |
---|
| 31 | #include <string.h> |
---|
| 32 | #include <ctype.h> |
---|
| 33 | #include <math.h> |
---|
| 34 | #include <float.h> |
---|
| 35 | |
---|
[b39e24a] | 36 | #include <proj.h> |
---|
[c092d72] | 37 | |
---|
[a405bc1] | 38 | #include "img_hosted.h" |
---|
[0532954] | 39 | #include "str.h" |
---|
[3d441da] | 40 | #include "useful.h" |
---|
[bb90203] | 41 | |
---|
[05c700b] | 42 | /* Set EXPLICIT_FIXED_FLAG to 1 to force an explicit fixed flag to be used |
---|
| 43 | * in each pos struct, rather than using p[0]==UNFIXED_VAL to indicate |
---|
| 44 | * unfixed-ness. This may be slightly faster, but uses more memory. |
---|
[bb90203] | 45 | */ |
---|
| 46 | #ifndef EXPLICIT_FIXED_FLAG |
---|
| 47 | # define EXPLICIT_FIXED_FLAG 0 |
---|
| 48 | #endif |
---|
| 49 | |
---|
| 50 | typedef double real; /* so we can change the precision used easily */ |
---|
| 51 | #define HUGE_REAL HUGE_VAL |
---|
[7bdf66d] | 52 | #define REAL_EPSILON DBL_EPSILON |
---|
[bb90203] | 53 | |
---|
| 54 | #if (!EXPLICIT_FIXED_FLAG) |
---|
| 55 | # define UNFIXED_VAL HUGE_VAL /* if p[0]==UNFIXED_VAL, station is unfixed */ |
---|
| 56 | #endif |
---|
| 57 | |
---|
[7d40549] | 58 | #define SPECIAL_EOL 0x0001 |
---|
| 59 | #define SPECIAL_BLANK 0x0002 |
---|
| 60 | #define SPECIAL_KEYWORD 0x0004 |
---|
| 61 | #define SPECIAL_COMMENT 0x0008 |
---|
| 62 | #define SPECIAL_OMIT 0x0010 |
---|
[a882316] | 63 | #ifndef NO_DEPRECATED |
---|
[7d40549] | 64 | #define SPECIAL_ROOT 0x0020 |
---|
[a882316] | 65 | #endif |
---|
[7d40549] | 66 | #define SPECIAL_SEPARATOR 0x0040 |
---|
| 67 | #define SPECIAL_NAMES 0x0080 |
---|
| 68 | #define SPECIAL_DECIMAL 0x0100 |
---|
| 69 | #define SPECIAL_MINUS 0x0200 |
---|
| 70 | #define SPECIAL_PLUS 0x0400 |
---|
| 71 | #define SPECIAL_OPEN 0x0800 |
---|
| 72 | #define SPECIAL_CLOSE 0x1000 |
---|
[bb90203] | 73 | |
---|
[3875c32] | 74 | extern char *fnm_output_base; |
---|
| 75 | extern int fnm_output_base_is_dir; |
---|
| 76 | |
---|
[d1878c51] | 77 | extern bool fExportUsed; |
---|
| 78 | |
---|
[1ee204e] | 79 | extern int current_days_since_1900; |
---|
[e0c7cd1] | 80 | |
---|
[bb90203] | 81 | /* Types */ |
---|
| 82 | |
---|
[05c700b] | 83 | typedef enum { |
---|
[009a9e4] | 84 | Q_NULL = -1, Q_DEFAULT, Q_POS, Q_PLUMB, Q_LEVEL, |
---|
| 85 | Q_GRADIENT, Q_BACKGRADIENT, Q_BEARING, Q_BACKBEARING, |
---|
[4f38f94] | 86 | Q_LENGTH, Q_BACKLENGTH, Q_DEPTH, Q_DX, Q_DY, Q_DZ, Q_COUNT, Q_DECLINATION, |
---|
[009a9e4] | 87 | Q_LEFT, Q_RIGHT, Q_UP, Q_DOWN, |
---|
| 88 | Q_MAC |
---|
[05c700b] | 89 | } q_quantity; |
---|
[bb90203] | 90 | |
---|
[27b8b59] | 91 | typedef enum { |
---|
[4e00b50] | 92 | INFER_NULL = -1, |
---|
| 93 | INFER_EQUATES, |
---|
| 94 | INFER_EXPORTS, |
---|
| 95 | INFER_PLUMBS, |
---|
| 96 | INFER_SUBSURVEYS, |
---|
| 97 | /* In Compass DAT files a dummy zero-length leg from a station to itself is |
---|
| 98 | * used to provide a place to specify LRUD for the start or end of a |
---|
| 99 | * traverse (depending if dimensions are measured at the from or to |
---|
| 100 | * station), so we shouldn't warn about equating a station to itself. |
---|
[f807847e] | 101 | * This should be set *as well as* INFER_EQUATES. |
---|
[4e00b50] | 102 | */ |
---|
| 103 | INFER_EQUATES_SELF_OK |
---|
[27b8b59] | 104 | } infer_what; |
---|
| 105 | |
---|
[bb90203] | 106 | /* unsigned long to cope with 16-bit int-s */ |
---|
| 107 | #define BIT(N) (1UL << (N)) |
---|
| 108 | #define BITA(N) (1UL << ((N) - 'a')) |
---|
| 109 | |
---|
[7f08c83] | 110 | #define TSTBIT(W, N) (((W)>>(N))&1) |
---|
| 111 | |
---|
[bb90203] | 112 | /* masks for quantities which are length and angles respectively */ |
---|
[4f38f94] | 113 | #define LEN_QMASK (BIT(Q_LENGTH) | BIT(Q_BACKLENGTH) | BIT(Q_DEPTH) |\ |
---|
[9dc51ae] | 114 | BIT(Q_DX) | BIT(Q_DY) | BIT(Q_DZ) | BIT(Q_POS) | BIT(Q_COUNT) |\ |
---|
| 115 | BIT(Q_LEFT) | BIT(Q_RIGHT) | BIT(Q_UP) | BIT(Q_DOWN)) |
---|
[b14f44f] | 116 | #define ANG_QMASK (BIT(Q_BEARING) | BIT(Q_BACKBEARING) |\ |
---|
| 117 | BIT(Q_GRADIENT) | BIT(Q_BACKGRADIENT) | BIT(Q_PLUMB) | BIT(Q_LEVEL) |\ |
---|
| 118 | BIT(Q_DECLINATION)) |
---|
[bb90203] | 119 | |
---|
[5c3c61a] | 120 | /* if you add/change the order, check factor_tab in commands.c */ |
---|
[05c700b] | 121 | typedef enum { |
---|
| 122 | UNITS_NULL = -1, UNITS_METRES, UNITS_FEET, UNITS_YARDS, |
---|
[00b10c1] | 123 | UNITS_DEGS, UNITS_QUADRANTS, UNITS_GRADS, UNITS_PERCENT, UNITS_MINUTES, |
---|
| 124 | UNITS_MAC, UNITS_DEPRECATED_ALIAS_FOR_GRADS |
---|
[05c700b] | 125 | } u_units; |
---|
[5c3c61a] | 126 | |
---|
[95c3272] | 127 | /* don't reorder these values! They need to match with img.h too */ |
---|
[5c3c61a] | 128 | typedef enum { |
---|
[95c3272] | 129 | FLAGS_NOT = -2, FLAGS_UNKNOWN = -1, FLAGS_SURFACE, FLAGS_DUPLICATE, |
---|
[710ecc1] | 130 | FLAGS_SPLAY, |
---|
[3d441da] | 131 | #if 0 |
---|
| 132 | /* underground, but through rock (e.g. radiolocation). Want to hide from |
---|
| 133 | * plots by default (so not cave) but don't want to include in surface |
---|
| 134 | * triangulation nets (so not surface) */ |
---|
[710ecc1] | 135 | FLAGS_SKELETAL, /* FIXME */ |
---|
[3d441da] | 136 | #endif |
---|
[dcbcae0] | 137 | /* Don't need to match img.h: */ |
---|
| 138 | FLAGS_ANON_ONE_END, |
---|
[eb5aea0] | 139 | FLAGS_IMPLICIT_SPLAY, |
---|
| 140 | FLAGS_STYLE_BIT0, FLAGS_STYLE_BIT1, FLAGS_STYLE_BIT2 |
---|
[5c3c61a] | 141 | } flags; |
---|
[bb90203] | 142 | |
---|
[eb5aea0] | 143 | /* flags are currently stored in an unsigned char */ |
---|
| 144 | typedef int compiletimeassert_flags0[FLAGS_STYLE_BIT2 <= 7 ? 1 : -1]; |
---|
| 145 | |
---|
| 146 | /* Mask to AND with to get bits to pass to img library. */ |
---|
| 147 | #define FLAGS_MASK \ |
---|
| 148 | (BIT(FLAGS_SURFACE) | BIT(FLAGS_DUPLICATE) | BIT(FLAGS_SPLAY)) |
---|
| 149 | |
---|
[ab4de24] | 150 | typedef int compiletimeassert_flags1[BIT(FLAGS_SURFACE) == img_FLAG_SURFACE ? 1 : -1]; |
---|
| 151 | typedef int compiletimeassert_flags2[BIT(FLAGS_DUPLICATE) == img_FLAG_DUPLICATE ? 1 : -1]; |
---|
| 152 | typedef int compiletimeassert_flags3[BIT(FLAGS_SPLAY) == img_FLAG_SPLAY ? 1 : -1]; |
---|
| 153 | |
---|
[95c3272] | 154 | typedef enum { |
---|
[ee05463] | 155 | /* Don't reorder these values! They need to match with img.h too. */ |
---|
[dfb4240] | 156 | SFLAGS_SURFACE = 0, SFLAGS_UNDERGROUND, SFLAGS_ENTRANCE, SFLAGS_EXPORTED, |
---|
[dcbcae0] | 157 | SFLAGS_FIXED, SFLAGS_ANON, SFLAGS_WALL, |
---|
[ee05463] | 158 | /* These values don't need to match img.h, but mustn't clash. */ |
---|
[f15cde77] | 159 | SFLAGS_USED = 11, |
---|
[d333899] | 160 | SFLAGS_SOLVED = 12, SFLAGS_SUSPECTTYPO = 13, SFLAGS_SURVEY = 14, SFLAGS_PREFIX_ENTERED = 15 |
---|
[95c3272] | 161 | } sflags; |
---|
[ee05463] | 162 | |
---|
| 163 | /* Mask to AND with to get bits to pass to img library. */ |
---|
| 164 | #define SFLAGS_MASK (BIT(SFLAGS_SURFACE) | BIT(SFLAGS_UNDERGROUND) |\ |
---|
[a2c33ae] | 165 | BIT(SFLAGS_ENTRANCE) | BIT(SFLAGS_EXPORTED) | BIT(SFLAGS_FIXED) |\ |
---|
[dcbcae0] | 166 | BIT(SFLAGS_ANON) | BIT(SFLAGS_WALL)) |
---|
[95c3272] | 167 | |
---|
[ab4de24] | 168 | typedef int compiletimeassert_sflags1[BIT(SFLAGS_SURFACE) == img_SFLAG_SURFACE ? 1 : -1]; |
---|
| 169 | typedef int compiletimeassert_sflags2[BIT(SFLAGS_UNDERGROUND) == img_SFLAG_UNDERGROUND ? 1 : -1]; |
---|
| 170 | typedef int compiletimeassert_sflags3[BIT(SFLAGS_ENTRANCE) == img_SFLAG_ENTRANCE ? 1 : -1]; |
---|
| 171 | typedef int compiletimeassert_sflags4[BIT(SFLAGS_EXPORTED) == img_SFLAG_EXPORTED ? 1 : -1]; |
---|
| 172 | typedef int compiletimeassert_sflags5[BIT(SFLAGS_FIXED) == img_SFLAG_FIXED ? 1 : -1]; |
---|
[a2c33ae] | 173 | typedef int compiletimeassert_sflags6[BIT(SFLAGS_ANON) == img_SFLAG_ANON ? 1 : -1]; |
---|
[dcbcae0] | 174 | typedef int compiletimeassert_sflags7[BIT(SFLAGS_WALL) == img_SFLAG_WALL ? 1 : -1]; |
---|
[ab4de24] | 175 | |
---|
[bb90203] | 176 | /* enumeration of field types */ |
---|
[05c700b] | 177 | typedef enum { |
---|
[4f38f94] | 178 | End = 0, Tape, Comp, Clino, BackTape, BackComp, BackClino, |
---|
| 179 | Left, Right, Up, Down, |
---|
[21c226e] | 180 | FrDepth, ToDepth, Dx, Dy, Dz, FrCount, ToCount, |
---|
[44bb30d] | 181 | /* Up to here are readings are allowed multiple values |
---|
| 182 | * and have slot in the value[] array in datain.c. |
---|
| 183 | * (Depth, DepthChange, and Count can have multiple |
---|
| 184 | * readings, but are actually handled using tokens |
---|
| 185 | * above rather than as themselves). |
---|
| 186 | * |
---|
| 187 | * Fr must be the first reading after this comment! |
---|
| 188 | */ |
---|
[21c226e] | 189 | Fr, To, Station, Depth, DepthChange, Count, Dir, |
---|
[44bb30d] | 190 | Newline, IgnoreAllAndNewLine, Ignore, IgnoreAll, |
---|
| 191 | /* IgnoreAll must be the last reading before this comment! |
---|
| 192 | * |
---|
| 193 | * Readings after this comment are only used in datain.c |
---|
| 194 | * so can have enum values >= 32 because we only use a |
---|
| 195 | * bitmask for those readings used in commands.c. |
---|
| 196 | */ |
---|
[5d59477] | 197 | CompassDATFr, CompassDATTo, |
---|
[07442af] | 198 | CompassDATComp, CompassDATClino, CompassDATBackComp, CompassDATBackClino, |
---|
| 199 | CompassDATLeft, CompassDATRight, CompassDATUp, CompassDATDown, |
---|
| 200 | CompassDATFlags |
---|
[0395657] | 201 | } reading; |
---|
[05c700b] | 202 | |
---|
[90bb053f] | 203 | /* if IgnoreAll is >= 32, the compiler will choke on this */ |
---|
| 204 | typedef char compiletimeassert_reading[IgnoreAll < 32 ? 1 : -1]; |
---|
| 205 | |
---|
[3d441da] | 206 | /* position or length vector */ |
---|
| 207 | typedef real delta[3]; |
---|
| 208 | |
---|
| 209 | /* variance */ |
---|
| 210 | #ifdef NO_COVARIANCES |
---|
| 211 | typedef real var[3]; |
---|
| 212 | typedef var svar; |
---|
| 213 | #else |
---|
| 214 | typedef real var[3][3]; |
---|
| 215 | typedef real svar[6]; |
---|
| 216 | #endif |
---|
[bb90203] | 217 | |
---|
| 218 | /* station name */ |
---|
| 219 | typedef struct Prefix { |
---|
| 220 | struct Prefix *up, *down, *right; |
---|
| 221 | struct Node *stn; |
---|
| 222 | struct Pos *pos; |
---|
[eb18f4d] | 223 | const char *ident; |
---|
[bf669f6] | 224 | // A filename:line where this name was used. If it's a station used in *fix |
---|
| 225 | // then this will be the location of such a *fix, otherwise if it's a |
---|
| 226 | // station used in *equate then it's the location of such a *equate. |
---|
| 227 | // Otherwise it's the first place it was used. |
---|
[4d9eecd] | 228 | const char *filename; |
---|
| 229 | unsigned int line; |
---|
[c00c74a9] | 230 | /* If (min_export == 0) then max_export is max # levels above is this |
---|
| 231 | * prefix is used (and so needs to be exported) (0 == parent only). |
---|
| 232 | * If (min_export > 0) then max_export is max # levels above this |
---|
[932f7e9] | 233 | * prefix has been exported, and min_export is how far down the exports |
---|
| 234 | * have got (if min_export > 1 after a run, this prefix hasn't been |
---|
[c00c74a9] | 235 | * exported from below enough). |
---|
[27b8b59] | 236 | * If INFER_EXPORTS is active when a station is encountered, we |
---|
[c00c74a9] | 237 | * set min_export = USHRT_MAX and max_export gets set as usual. Then at |
---|
| 238 | * the end of the run, we also mark stations with min_export == USHRT_MAX |
---|
| 239 | * and max_export > 0 as exported. */ |
---|
| 240 | unsigned short max_export, min_export; |
---|
[95c3272] | 241 | /* stn flags - e.g. surface, underground, entrance |
---|
| 242 | * also suspecttypo and survey */ |
---|
[421b7d2] | 243 | unsigned short sflags; |
---|
[c00c74a9] | 244 | short shape; |
---|
[bb90203] | 245 | } prefix; |
---|
| 246 | |
---|
[b5a3219] | 247 | /* survey metadata */ |
---|
| 248 | typedef struct Meta_data { |
---|
| 249 | size_t ref_count; |
---|
[0e9e1ee] | 250 | /* Days since 1900 for start and end date of survey, or -1 if undated. */ |
---|
[1ee204e] | 251 | int days1, days2; |
---|
[b5a3219] | 252 | } meta_data; |
---|
| 253 | |
---|
[bb90203] | 254 | /* stuff stored for both forward & reverse legs */ |
---|
| 255 | typedef struct { |
---|
| 256 | struct Node *to; |
---|
| 257 | /* bits 0..1 = reverse leg number; bit7 is fFullLeg */ |
---|
| 258 | /* bit6 = fReplacementLeg (by reduction rules) */ |
---|
[cb3d1e2] | 259 | /* bit5 = articulation leg (i.e. carries no error) */ |
---|
[67508f0] | 260 | unsigned char reverse; |
---|
[5c3c61a] | 261 | /* flags - e.g. surface, duplicate survey |
---|
[693388e] | 262 | * only used if (FLAG_DATAHERE & !(FLAG_REPLACEMENTLEG|FLAG_FAKE)) |
---|
[b5a3219] | 263 | * This could be only in linkfor, but this is actually more space |
---|
| 264 | * efficient. |
---|
[5c3c61a] | 265 | */ |
---|
[67508f0] | 266 | unsigned char flags; |
---|
[bb90203] | 267 | } linkcommon; |
---|
[3d441da] | 268 | |
---|
[cb3d1e2] | 269 | #define FLAG_DATAHERE 0x80 |
---|
| 270 | #define FLAG_REPLACEMENTLEG 0x40 |
---|
[7f08c83] | 271 | #define FLAG_ARTICULATION 0x20 |
---|
[693388e] | 272 | #define FLAG_FAKE 0x10 /* an equate or leg inside an sdfix */ |
---|
[cb3d1e2] | 273 | #define MASK_REVERSEDIRN 0x03 |
---|
[bb90203] | 274 | |
---|
| 275 | /* reverse leg - deltas & vars stored on other dirn */ |
---|
| 276 | typedef struct LinkRev { |
---|
| 277 | linkcommon l; |
---|
| 278 | } linkrev; |
---|
| 279 | |
---|
| 280 | /* forward leg - deltas & vars stored here */ |
---|
| 281 | typedef struct Link { |
---|
| 282 | linkcommon l; |
---|
[eb18f4d] | 283 | delta d; /* Delta */ |
---|
[59f2dbb] | 284 | svar v; /* Variances */ |
---|
[b5a3219] | 285 | meta_data *meta; |
---|
[bb90203] | 286 | } linkfor; |
---|
| 287 | |
---|
| 288 | /* node - like a station, except several nodes are used to represent a |
---|
| 289 | * station with more than 3 legs connected to it |
---|
| 290 | */ |
---|
| 291 | typedef struct Node { |
---|
| 292 | struct Prefix *name; |
---|
| 293 | struct Link *leg[3]; |
---|
[564f471] | 294 | struct Node *prev, *next; |
---|
[118eea4] | 295 | long colour; |
---|
[bb90203] | 296 | } node; |
---|
| 297 | |
---|
| 298 | /* station position */ |
---|
| 299 | typedef struct Pos { |
---|
[eb18f4d] | 300 | delta p; /* Position */ |
---|
[bb90203] | 301 | #if EXPLICIT_FIXED_FLAG |
---|
[67508f0] | 302 | unsigned char fFixed; /* flag indicating if station is a fixed point */ |
---|
[bb90203] | 303 | #endif |
---|
| 304 | } pos; |
---|
| 305 | |
---|
| 306 | /* |
---|
| 307 | typedef struct Inst { |
---|
| 308 | real zero, scale, units; |
---|
| 309 | } inst; |
---|
| 310 | */ |
---|
| 311 | |
---|
[107b8bd] | 312 | /* Survey data styles */ |
---|
| 313 | #define STYLE_NORMAL 0 |
---|
| 314 | #define STYLE_DIVING 1 |
---|
| 315 | #define STYLE_CARTESIAN 2 |
---|
| 316 | #define STYLE_CYLPOLAR 3 |
---|
[ac28f4f] | 317 | #define STYLE_NOSURVEY 4 |
---|
| 318 | #define STYLE_PASSAGE 5 |
---|
[ee05463] | 319 | #define STYLE_IGNORE 6 |
---|
[107b8bd] | 320 | |
---|
[eb5aea0] | 321 | typedef int compiletimeassert_style1[STYLE_NORMAL == img_STYLE_NORMAL ? 1 : -1]; |
---|
| 322 | typedef int compiletimeassert_style2[STYLE_DIVING == img_STYLE_DIVING ? 1 : -1]; |
---|
| 323 | typedef int compiletimeassert_style3[STYLE_CARTESIAN == img_STYLE_CARTESIAN ? 1 : -1]; |
---|
| 324 | typedef int compiletimeassert_style4[STYLE_CYLPOLAR == img_STYLE_CYLPOLAR ? 1 : -1]; |
---|
| 325 | typedef int compiletimeassert_style5[STYLE_NOSURVEY == img_STYLE_NOSURVEY ? 1 : -1]; |
---|
| 326 | |
---|
[bb90203] | 327 | /* various settings preserved by *BEGIN and *END */ |
---|
| 328 | typedef struct Settings { |
---|
[b5a3219] | 329 | struct Settings *next; |
---|
[eb18f4d] | 330 | unsigned int Truncate; |
---|
[fa42426] | 331 | bool f_clino_percent; |
---|
| 332 | bool f_backclino_percent; |
---|
[00b10c1] | 333 | bool f_bearing_quadrants; |
---|
| 334 | bool f_backbearing_quadrants; |
---|
[dcbcae0] | 335 | bool dash_for_anon_wall_station; |
---|
[27b8b59] | 336 | unsigned char infer; |
---|
[bb90203] | 337 | enum {OFF, LOWER, UPPER} Case; |
---|
[fdffa7d] | 338 | /* STYLE_xxx value to process data as. */ |
---|
[107b8bd] | 339 | int style; |
---|
[fdffa7d] | 340 | /* STYLE_xxx value to put in 3d file (different for Compass DAT diving |
---|
| 341 | * data, as the data in the DAT file is always presented in the format |
---|
| 342 | * tape,compass,clino even if that isn't how it was really measured). |
---|
| 343 | */ |
---|
| 344 | int recorded_style; |
---|
[bb90203] | 345 | prefix *Prefix; |
---|
[613028c] | 346 | prefix *begin_survey; /* used to check BEGIN and END match */ |
---|
[bb90203] | 347 | short *Translate; /* if short is >= 16 bits, which ANSI requires */ |
---|
| 348 | real Var[Q_MAC]; |
---|
| 349 | real z[Q_MAC]; |
---|
| 350 | real sc[Q_MAC]; |
---|
[cb3d1e2] | 351 | real units[Q_MAC]; |
---|
[78ed938] | 352 | const reading *ordering; |
---|
[47c7a94] | 353 | int begin_lineno; /* 0 means no block started in this file */ |
---|
[5c3c61a] | 354 | int flags; |
---|
[b39e24a] | 355 | char* proj_str; |
---|
[58c7b459] | 356 | /* Location at which we calculate the declination if |
---|
[3830dc0] | 357 | * z[Q_DECLINATION] == HUGE_REAL. |
---|
| 358 | * |
---|
| 359 | * Latitude and longitude are in radians; altitude is in metres above the |
---|
| 360 | * ellipsoid. |
---|
| 361 | */ |
---|
| 362 | real dec_lat, dec_lon, dec_alt; |
---|
[b5907bb] | 363 | /* Cached auto-declination in radians, or HUGE_REAL for no cached value. |
---|
| 364 | * Only meaningful if date1 != -1. |
---|
[95b0f1d] | 365 | */ |
---|
| 366 | real declination; |
---|
[37d6b84] | 367 | double min_declination, max_declination; |
---|
| 368 | int min_declination_days, max_declination_days; |
---|
| 369 | const char* dec_filename; |
---|
| 370 | int dec_line; |
---|
| 371 | /* Copy of the text of the `*declination auto ...` line (malloced). */ |
---|
| 372 | char* dec_context; |
---|
[b5907bb] | 373 | /* Grid convergence in radians. */ |
---|
[2c17123e] | 374 | real convergence; |
---|
[b5a3219] | 375 | meta_data * meta; |
---|
[bb90203] | 376 | } settings; |
---|
| 377 | |
---|
| 378 | /* global variables */ |
---|
| 379 | extern settings *pcs; |
---|
| 380 | extern prefix *root; |
---|
[a2c33ae] | 381 | extern prefix *anon_list; |
---|
[bb90203] | 382 | extern node *stnlist; |
---|
[3875c32] | 383 | extern unsigned long optimize; |
---|
[c092d72] | 384 | extern char * proj_str_out; |
---|
[da9163b] | 385 | extern PJ * pj_cached; |
---|
[bd283cf6] | 386 | |
---|
[0532954] | 387 | extern string survey_title; |
---|
[bb90203] | 388 | |
---|
| 389 | extern bool fExplicitTitle; |
---|
| 390 | extern long cLegs, cStns, cComponents; |
---|
| 391 | extern FILE *fhErrStat; |
---|
[693388e] | 392 | extern img *pimg; |
---|
[bb90203] | 393 | extern real totadj, total, totplan, totvert; |
---|
[dfac588] | 394 | extern real min[6], max[6]; |
---|
| 395 | extern prefix *pfxHi[6], *pfxLo[6]; |
---|
[647407d] | 396 | extern bool fQuiet; /* just show brief summary + errors */ |
---|
[ed0f5b6] | 397 | extern bool fMute; /* just show errors */ |
---|
[c0b279c] | 398 | extern bool fSuppress; /* only output 3d file */ |
---|
[bb90203] | 399 | |
---|
| 400 | /* macros */ |
---|
| 401 | |
---|
| 402 | #define POS(S, D) ((S)->name->pos->p[(D)]) |
---|
| 403 | #define POSD(S) ((S)->name->pos->p) |
---|
| 404 | |
---|
| 405 | #define data_here(L) ((L)->l.reverse & FLAG_DATAHERE) |
---|
[cb3d1e2] | 406 | #define reverse_leg_dirn(L) ((L)->l.reverse & MASK_REVERSEDIRN) |
---|
| 407 | #define reverse_leg(L) ((L)->l.to->leg[reverse_leg_dirn(L)]) |
---|
[bb90203] | 408 | |
---|
| 409 | #if EXPLICIT_FIXED_FLAG |
---|
| 410 | # define pfx_fixed(N) ((N)->pos->fFixed) |
---|
[3e25a0d] | 411 | # define pos_fixed(P) ((P)->fFixed) |
---|
[63d4f07] | 412 | # define fix(S) (S)->name->pos->fFixed = (char)true |
---|
| 413 | # define fixpos(P) (P)->fFixed = (char)true |
---|
| 414 | # define unfix(S) (S)->name->pos->fFixed = (char)false |
---|
[bb90203] | 415 | #else |
---|
| 416 | # define pfx_fixed(N) ((N)->pos->p[0] != UNFIXED_VAL) |
---|
[3e25a0d] | 417 | # define pos_fixed(P) ((P)->p[0] != UNFIXED_VAL) |
---|
[bb90203] | 418 | # define fix(S) NOP |
---|
[084905c] | 419 | # define fixpos(P) NOP |
---|
[bb90203] | 420 | # define unfix(S) POS((S), 0) = UNFIXED_VAL |
---|
| 421 | #endif |
---|
| 422 | #define fixed(S) pfx_fixed((S)->name) |
---|
| 423 | |
---|
[0af7076] | 424 | /* macros for special chars */ |
---|
[bb90203] | 425 | |
---|
| 426 | #define isEol(c) (pcs->Translate[(c)] & SPECIAL_EOL) |
---|
| 427 | #define isBlank(c) (pcs->Translate[(c)] & SPECIAL_BLANK) |
---|
| 428 | #define isKeywd(c) (pcs->Translate[(c)] & SPECIAL_KEYWORD) |
---|
| 429 | #define isComm(c) (pcs->Translate[(c)] & SPECIAL_COMMENT) |
---|
| 430 | #define isOmit(c) (pcs->Translate[(c)] & SPECIAL_OMIT) |
---|
[a882316] | 431 | #ifndef NO_DEPRECATED |
---|
[bb90203] | 432 | #define isRoot(c) (pcs->Translate[(c)] & SPECIAL_ROOT) |
---|
[a882316] | 433 | #endif |
---|
[bb90203] | 434 | #define isSep(c) (pcs->Translate[(c)] & SPECIAL_SEPARATOR) |
---|
| 435 | #define isNames(c) (pcs->Translate[(c)] & SPECIAL_NAMES) |
---|
| 436 | #define isDecimal(c) (pcs->Translate[(c)] & SPECIAL_DECIMAL) |
---|
| 437 | #define isMinus(c) (pcs->Translate[(c)] & SPECIAL_MINUS) |
---|
| 438 | #define isPlus(c) (pcs->Translate[(c)] & SPECIAL_PLUS) |
---|
[21c226e] | 439 | #define isOpen(c) (pcs->Translate[(c)] & SPECIAL_OPEN) |
---|
| 440 | #define isClose(c) (pcs->Translate[(c)] & SPECIAL_CLOSE) |
---|
[bb90203] | 441 | |
---|
| 442 | #define isSign(c) (pcs->Translate[(c)] & (SPECIAL_PLUS | SPECIAL_MINUS)) |
---|
| 443 | #define isData(c) (pcs->Translate[(c)] & (SPECIAL_OMIT | SPECIAL_ROOT|\ |
---|
| 444 | SPECIAL_SEPARATOR | SPECIAL_NAMES | SPECIAL_DECIMAL | SPECIAL_PLUS |\ |
---|
| 445 | SPECIAL_MINUS)) |
---|
| 446 | |
---|
[647407d] | 447 | typedef struct nosurveylink { |
---|
| 448 | node *fr, *to; |
---|
[b3bef47] | 449 | int flags; |
---|
[ee05463] | 450 | meta_data *meta; |
---|
[647407d] | 451 | struct nosurveylink *next; |
---|
| 452 | } nosurveylink; |
---|
| 453 | |
---|
| 454 | extern nosurveylink *nosurveyhead; |
---|
| 455 | |
---|
[ee05463] | 456 | typedef struct lrud { |
---|
| 457 | struct lrud * next; |
---|
| 458 | prefix *stn; |
---|
[a6301a1] | 459 | meta_data *meta; |
---|
[ee05463] | 460 | real l, r, u, d; |
---|
| 461 | } lrud; |
---|
| 462 | |
---|
| 463 | typedef struct lrudlist { |
---|
| 464 | lrud * tube; |
---|
| 465 | struct lrudlist * next; |
---|
| 466 | } lrudlist; |
---|
| 467 | |
---|
| 468 | extern lrudlist * model; |
---|
| 469 | |
---|
| 470 | extern lrud ** next_lrud; |
---|
| 471 | |
---|
[5d59477] | 472 | extern char output_separator; |
---|
| 473 | |
---|
[3875c32] | 474 | #endif /* CAVERN_H */ |
---|