[0badc31] | 1 | /* cavern.h |
---|
[bb90203] | 2 | * SURVEX Cave surveying software - header file |
---|
[009a9e4] | 3 | * Copyright (C) 1991-2003,2005,2006,2010,2013,2014,2015 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 | |
---|
[c092d72] | 36 | #include <proj_api.h> |
---|
| 37 | |
---|
[a405bc1] | 38 | #include "img_hosted.h" |
---|
[3d441da] | 39 | #include "useful.h" |
---|
[bb90203] | 40 | |
---|
[05c700b] | 41 | /* Set EXPLICIT_FIXED_FLAG to 1 to force an explicit fixed flag to be used |
---|
| 42 | * in each pos struct, rather than using p[0]==UNFIXED_VAL to indicate |
---|
| 43 | * unfixed-ness. This may be slightly faster, but uses more memory. |
---|
[bb90203] | 44 | */ |
---|
| 45 | #ifndef EXPLICIT_FIXED_FLAG |
---|
| 46 | # define EXPLICIT_FIXED_FLAG 0 |
---|
| 47 | #endif |
---|
| 48 | |
---|
| 49 | typedef double real; /* so we can change the precision used easily */ |
---|
| 50 | #define HUGE_REAL HUGE_VAL |
---|
[7bdf66d] | 51 | #define REAL_EPSILON DBL_EPSILON |
---|
[bb90203] | 52 | |
---|
| 53 | #if (!EXPLICIT_FIXED_FLAG) |
---|
| 54 | # define UNFIXED_VAL HUGE_VAL /* if p[0]==UNFIXED_VAL, station is unfixed */ |
---|
| 55 | #endif |
---|
| 56 | |
---|
[7d40549] | 57 | #define SPECIAL_EOL 0x0001 |
---|
| 58 | #define SPECIAL_BLANK 0x0002 |
---|
| 59 | #define SPECIAL_KEYWORD 0x0004 |
---|
| 60 | #define SPECIAL_COMMENT 0x0008 |
---|
| 61 | #define SPECIAL_OMIT 0x0010 |
---|
[a882316] | 62 | #ifndef NO_DEPRECATED |
---|
[7d40549] | 63 | #define SPECIAL_ROOT 0x0020 |
---|
[a882316] | 64 | #endif |
---|
[7d40549] | 65 | #define SPECIAL_SEPARATOR 0x0040 |
---|
| 66 | #define SPECIAL_NAMES 0x0080 |
---|
| 67 | #define SPECIAL_DECIMAL 0x0100 |
---|
| 68 | #define SPECIAL_MINUS 0x0200 |
---|
| 69 | #define SPECIAL_PLUS 0x0400 |
---|
| 70 | #define SPECIAL_OPEN 0x0800 |
---|
| 71 | #define SPECIAL_CLOSE 0x1000 |
---|
[bb90203] | 72 | |
---|
[3875c32] | 73 | extern char *fnm_output_base; |
---|
| 74 | extern int fnm_output_base_is_dir; |
---|
| 75 | |
---|
[d1878c51] | 76 | extern bool fExportUsed; |
---|
| 77 | |
---|
[1ee204e] | 78 | extern int current_days_since_1900; |
---|
[e0c7cd1] | 79 | |
---|
[bb90203] | 80 | /* Types */ |
---|
| 81 | |
---|
[05c700b] | 82 | typedef enum { |
---|
[009a9e4] | 83 | Q_NULL = -1, Q_DEFAULT, Q_POS, Q_PLUMB, Q_LEVEL, |
---|
| 84 | Q_GRADIENT, Q_BACKGRADIENT, Q_BEARING, Q_BACKBEARING, |
---|
| 85 | Q_LENGTH, Q_DEPTH, Q_DX, Q_DY, Q_DZ, Q_COUNT, Q_DECLINATION, |
---|
| 86 | Q_LEFT, Q_RIGHT, Q_UP, Q_DOWN, |
---|
| 87 | Q_MAC |
---|
[05c700b] | 88 | } q_quantity; |
---|
[bb90203] | 89 | |
---|
[27b8b59] | 90 | typedef enum { |
---|
| 91 | INFER_NULL = -1, INFER_EQUATES, INFER_EXPORTS, INFER_PLUMBS, INFER_SUBSURVEYS |
---|
| 92 | } infer_what; |
---|
| 93 | |
---|
[bb90203] | 94 | /* unsigned long to cope with 16-bit int-s */ |
---|
| 95 | #define BIT(N) (1UL << (N)) |
---|
| 96 | #define BITA(N) (1UL << ((N) - 'a')) |
---|
| 97 | |
---|
[7f08c83] | 98 | #define TSTBIT(W, N) (((W)>>(N))&1) |
---|
| 99 | |
---|
[bb90203] | 100 | /* masks for quantities which are length and angles respectively */ |
---|
| 101 | #define LEN_QMASK (BIT(Q_LENGTH) | BIT(Q_DEPTH) |\ |
---|
[b14f44f] | 102 | BIT(Q_DX) | BIT(Q_DY) | BIT(Q_DZ) | BIT(Q_POS) | BIT(Q_COUNT)) |
---|
| 103 | #define ANG_QMASK (BIT(Q_BEARING) | BIT(Q_BACKBEARING) |\ |
---|
| 104 | BIT(Q_GRADIENT) | BIT(Q_BACKGRADIENT) | BIT(Q_PLUMB) | BIT(Q_LEVEL) |\ |
---|
| 105 | BIT(Q_DECLINATION)) |
---|
[bb90203] | 106 | |
---|
[5c3c61a] | 107 | /* if you add/change the order, check factor_tab in commands.c */ |
---|
[05c700b] | 108 | typedef enum { |
---|
| 109 | UNITS_NULL = -1, UNITS_METRES, UNITS_FEET, UNITS_YARDS, |
---|
| 110 | UNITS_DEGS, UNITS_GRADS, UNITS_PERCENT, UNITS_MINUTES, UNITS_MAC |
---|
| 111 | } u_units; |
---|
[5c3c61a] | 112 | |
---|
[95c3272] | 113 | /* don't reorder these values! They need to match with img.h too */ |
---|
[5c3c61a] | 114 | typedef enum { |
---|
[95c3272] | 115 | FLAGS_NOT = -2, FLAGS_UNKNOWN = -1, FLAGS_SURFACE, FLAGS_DUPLICATE, |
---|
[710ecc1] | 116 | FLAGS_SPLAY, |
---|
[3d441da] | 117 | #if 0 |
---|
| 118 | /* underground, but through rock (e.g. radiolocation). Want to hide from |
---|
| 119 | * plots by default (so not cave) but don't want to include in surface |
---|
| 120 | * triangulation nets (so not surface) */ |
---|
[710ecc1] | 121 | FLAGS_SKELETAL, /* FIXME */ |
---|
[3d441da] | 122 | #endif |
---|
[dcbcae0] | 123 | /* Don't need to match img.h: */ |
---|
| 124 | FLAGS_ANON_ONE_END, |
---|
[eb5aea0] | 125 | FLAGS_IMPLICIT_SPLAY, |
---|
| 126 | FLAGS_STYLE_BIT0, FLAGS_STYLE_BIT1, FLAGS_STYLE_BIT2 |
---|
[5c3c61a] | 127 | } flags; |
---|
[bb90203] | 128 | |
---|
[eb5aea0] | 129 | /* flags are currently stored in an unsigned char */ |
---|
| 130 | typedef int compiletimeassert_flags0[FLAGS_STYLE_BIT2 <= 7 ? 1 : -1]; |
---|
| 131 | |
---|
| 132 | /* Mask to AND with to get bits to pass to img library. */ |
---|
| 133 | #define FLAGS_MASK \ |
---|
| 134 | (BIT(FLAGS_SURFACE) | BIT(FLAGS_DUPLICATE) | BIT(FLAGS_SPLAY)) |
---|
| 135 | |
---|
[ab4de24] | 136 | typedef int compiletimeassert_flags1[BIT(FLAGS_SURFACE) == img_FLAG_SURFACE ? 1 : -1]; |
---|
| 137 | typedef int compiletimeassert_flags2[BIT(FLAGS_DUPLICATE) == img_FLAG_DUPLICATE ? 1 : -1]; |
---|
| 138 | typedef int compiletimeassert_flags3[BIT(FLAGS_SPLAY) == img_FLAG_SPLAY ? 1 : -1]; |
---|
| 139 | |
---|
[95c3272] | 140 | typedef enum { |
---|
[ee05463] | 141 | /* Don't reorder these values! They need to match with img.h too. */ |
---|
[dfb4240] | 142 | SFLAGS_SURFACE = 0, SFLAGS_UNDERGROUND, SFLAGS_ENTRANCE, SFLAGS_EXPORTED, |
---|
[dcbcae0] | 143 | SFLAGS_FIXED, SFLAGS_ANON, SFLAGS_WALL, |
---|
[ee05463] | 144 | /* These values don't need to match img.h, but mustn't clash. */ |
---|
[f15cde77] | 145 | SFLAGS_USED = 11, |
---|
[d333899] | 146 | SFLAGS_SOLVED = 12, SFLAGS_SUSPECTTYPO = 13, SFLAGS_SURVEY = 14, SFLAGS_PREFIX_ENTERED = 15 |
---|
[95c3272] | 147 | } sflags; |
---|
[ee05463] | 148 | |
---|
| 149 | /* Mask to AND with to get bits to pass to img library. */ |
---|
| 150 | #define SFLAGS_MASK (BIT(SFLAGS_SURFACE) | BIT(SFLAGS_UNDERGROUND) |\ |
---|
[a2c33ae] | 151 | BIT(SFLAGS_ENTRANCE) | BIT(SFLAGS_EXPORTED) | BIT(SFLAGS_FIXED) |\ |
---|
[dcbcae0] | 152 | BIT(SFLAGS_ANON) | BIT(SFLAGS_WALL)) |
---|
[95c3272] | 153 | |
---|
[ab4de24] | 154 | typedef int compiletimeassert_sflags1[BIT(SFLAGS_SURFACE) == img_SFLAG_SURFACE ? 1 : -1]; |
---|
| 155 | typedef int compiletimeassert_sflags2[BIT(SFLAGS_UNDERGROUND) == img_SFLAG_UNDERGROUND ? 1 : -1]; |
---|
| 156 | typedef int compiletimeassert_sflags3[BIT(SFLAGS_ENTRANCE) == img_SFLAG_ENTRANCE ? 1 : -1]; |
---|
| 157 | typedef int compiletimeassert_sflags4[BIT(SFLAGS_EXPORTED) == img_SFLAG_EXPORTED ? 1 : -1]; |
---|
| 158 | typedef int compiletimeassert_sflags5[BIT(SFLAGS_FIXED) == img_SFLAG_FIXED ? 1 : -1]; |
---|
[a2c33ae] | 159 | typedef int compiletimeassert_sflags6[BIT(SFLAGS_ANON) == img_SFLAG_ANON ? 1 : -1]; |
---|
[dcbcae0] | 160 | typedef int compiletimeassert_sflags7[BIT(SFLAGS_WALL) == img_SFLAG_WALL ? 1 : -1]; |
---|
[ab4de24] | 161 | |
---|
[bb90203] | 162 | /* enumeration of field types */ |
---|
[05c700b] | 163 | typedef enum { |
---|
[07442af] | 164 | End = 0, Tape, Comp, Clino, BackComp, BackClino, Left, Right, Up, Down, |
---|
[21c226e] | 165 | FrDepth, ToDepth, Dx, Dy, Dz, FrCount, ToCount, |
---|
[44bb30d] | 166 | /* Up to here are readings are allowed multiple values |
---|
| 167 | * and have slot in the value[] array in datain.c. |
---|
| 168 | * (Depth, DepthChange, and Count can have multiple |
---|
| 169 | * readings, but are actually handled using tokens |
---|
| 170 | * above rather than as themselves). |
---|
| 171 | * |
---|
| 172 | * Fr must be the first reading after this comment! |
---|
| 173 | */ |
---|
[21c226e] | 174 | Fr, To, Station, Depth, DepthChange, Count, Dir, |
---|
[44bb30d] | 175 | Newline, IgnoreAllAndNewLine, Ignore, IgnoreAll, |
---|
| 176 | /* IgnoreAll must be the last reading before this comment! |
---|
| 177 | * |
---|
| 178 | * Readings after this comment are only used in datain.c |
---|
| 179 | * so can have enum values >= 32 because we only use a |
---|
| 180 | * bitmask for those readings used in commands.c. |
---|
| 181 | */ |
---|
[07442af] | 182 | CompassDATComp, CompassDATClino, CompassDATBackComp, CompassDATBackClino, |
---|
| 183 | CompassDATLeft, CompassDATRight, CompassDATUp, CompassDATDown, |
---|
| 184 | CompassDATFlags |
---|
[0395657] | 185 | } reading; |
---|
[21c226e] | 186 | /* Tape Comp Clino BackComp BackClino FrDepth ToDepth Dx Dy Dz FrCount ToCount */ |
---|
[05c700b] | 187 | |
---|
[90bb053f] | 188 | /* if IgnoreAll is >= 32, the compiler will choke on this */ |
---|
| 189 | typedef char compiletimeassert_reading[IgnoreAll < 32 ? 1 : -1]; |
---|
| 190 | |
---|
[3d441da] | 191 | /* position or length vector */ |
---|
| 192 | typedef real delta[3]; |
---|
| 193 | |
---|
| 194 | /* variance */ |
---|
| 195 | #ifdef NO_COVARIANCES |
---|
| 196 | typedef real var[3]; |
---|
| 197 | typedef var svar; |
---|
| 198 | #else |
---|
| 199 | typedef real var[3][3]; |
---|
| 200 | typedef real svar[6]; |
---|
| 201 | #endif |
---|
[bb90203] | 202 | |
---|
| 203 | /* station name */ |
---|
| 204 | typedef struct Prefix { |
---|
| 205 | struct Prefix *up, *down, *right; |
---|
| 206 | struct Node *stn; |
---|
| 207 | struct Pos *pos; |
---|
[eb18f4d] | 208 | const char *ident; |
---|
[4d9eecd] | 209 | const char *filename; |
---|
| 210 | unsigned int line; |
---|
[c00c74a9] | 211 | /* If (min_export == 0) then max_export is max # levels above is this |
---|
| 212 | * prefix is used (and so needs to be exported) (0 == parent only). |
---|
| 213 | * If (min_export > 0) then max_export is max # levels above this |
---|
[932f7e9] | 214 | * prefix has been exported, and min_export is how far down the exports |
---|
| 215 | * have got (if min_export > 1 after a run, this prefix hasn't been |
---|
[c00c74a9] | 216 | * exported from below enough). |
---|
[27b8b59] | 217 | * If INFER_EXPORTS is active when a station is encountered, we |
---|
[c00c74a9] | 218 | * set min_export = USHRT_MAX and max_export gets set as usual. Then at |
---|
| 219 | * the end of the run, we also mark stations with min_export == USHRT_MAX |
---|
| 220 | * and max_export > 0 as exported. */ |
---|
| 221 | unsigned short max_export, min_export; |
---|
[95c3272] | 222 | /* stn flags - e.g. surface, underground, entrance |
---|
| 223 | * also suspecttypo and survey */ |
---|
[421b7d2] | 224 | unsigned short sflags; |
---|
[c00c74a9] | 225 | short shape; |
---|
[bb90203] | 226 | } prefix; |
---|
| 227 | |
---|
[b5a3219] | 228 | /* survey metadata */ |
---|
| 229 | typedef struct Meta_data { |
---|
| 230 | size_t ref_count; |
---|
[1ee204e] | 231 | int days1, days2; |
---|
[b5a3219] | 232 | } meta_data; |
---|
| 233 | |
---|
[bb90203] | 234 | /* stuff stored for both forward & reverse legs */ |
---|
| 235 | typedef struct { |
---|
| 236 | struct Node *to; |
---|
| 237 | /* bits 0..1 = reverse leg number; bit7 is fFullLeg */ |
---|
| 238 | /* bit6 = fReplacementLeg (by reduction rules) */ |
---|
[cb3d1e2] | 239 | /* bit5 = articulation leg (i.e. carries no error) */ |
---|
[67508f0] | 240 | unsigned char reverse; |
---|
[5c3c61a] | 241 | /* flags - e.g. surface, duplicate survey |
---|
[693388e] | 242 | * only used if (FLAG_DATAHERE & !(FLAG_REPLACEMENTLEG|FLAG_FAKE)) |
---|
[b5a3219] | 243 | * This could be only in linkfor, but this is actually more space |
---|
| 244 | * efficient. |
---|
[5c3c61a] | 245 | */ |
---|
[67508f0] | 246 | unsigned char flags; |
---|
[bb90203] | 247 | } linkcommon; |
---|
[3d441da] | 248 | |
---|
[cb3d1e2] | 249 | #define FLAG_DATAHERE 0x80 |
---|
| 250 | #define FLAG_REPLACEMENTLEG 0x40 |
---|
[7f08c83] | 251 | #define FLAG_ARTICULATION 0x20 |
---|
[693388e] | 252 | #define FLAG_FAKE 0x10 /* an equate or leg inside an sdfix */ |
---|
[cb3d1e2] | 253 | #define MASK_REVERSEDIRN 0x03 |
---|
[bb90203] | 254 | |
---|
| 255 | /* reverse leg - deltas & vars stored on other dirn */ |
---|
| 256 | typedef struct LinkRev { |
---|
| 257 | linkcommon l; |
---|
| 258 | } linkrev; |
---|
| 259 | |
---|
| 260 | /* forward leg - deltas & vars stored here */ |
---|
| 261 | typedef struct Link { |
---|
| 262 | linkcommon l; |
---|
[eb18f4d] | 263 | delta d; /* Delta */ |
---|
[59f2dbb] | 264 | svar v; /* Variances */ |
---|
[b5a3219] | 265 | meta_data *meta; |
---|
[bb90203] | 266 | } linkfor; |
---|
| 267 | |
---|
| 268 | /* node - like a station, except several nodes are used to represent a |
---|
| 269 | * station with more than 3 legs connected to it |
---|
| 270 | */ |
---|
| 271 | typedef struct Node { |
---|
| 272 | struct Prefix *name; |
---|
| 273 | struct Link *leg[3]; |
---|
[564f471] | 274 | struct Node *prev, *next; |
---|
[118eea4] | 275 | long colour; |
---|
[bb90203] | 276 | } node; |
---|
| 277 | |
---|
| 278 | /* station position */ |
---|
| 279 | typedef struct Pos { |
---|
[eb18f4d] | 280 | delta p; /* Position */ |
---|
[bb90203] | 281 | #if EXPLICIT_FIXED_FLAG |
---|
[67508f0] | 282 | unsigned char fFixed; /* flag indicating if station is a fixed point */ |
---|
[bb90203] | 283 | #endif |
---|
| 284 | } pos; |
---|
| 285 | |
---|
| 286 | /* |
---|
| 287 | typedef struct Inst { |
---|
| 288 | real zero, scale, units; |
---|
| 289 | } inst; |
---|
| 290 | */ |
---|
| 291 | |
---|
[107b8bd] | 292 | /* Survey data styles */ |
---|
| 293 | #define STYLE_NORMAL 0 |
---|
| 294 | #define STYLE_DIVING 1 |
---|
| 295 | #define STYLE_CARTESIAN 2 |
---|
| 296 | #define STYLE_CYLPOLAR 3 |
---|
[ac28f4f] | 297 | #define STYLE_NOSURVEY 4 |
---|
| 298 | #define STYLE_PASSAGE 5 |
---|
[ee05463] | 299 | #define STYLE_IGNORE 6 |
---|
[107b8bd] | 300 | |
---|
[eb5aea0] | 301 | typedef int compiletimeassert_style1[STYLE_NORMAL == img_STYLE_NORMAL ? 1 : -1]; |
---|
| 302 | typedef int compiletimeassert_style2[STYLE_DIVING == img_STYLE_DIVING ? 1 : -1]; |
---|
| 303 | typedef int compiletimeassert_style3[STYLE_CARTESIAN == img_STYLE_CARTESIAN ? 1 : -1]; |
---|
| 304 | typedef int compiletimeassert_style4[STYLE_CYLPOLAR == img_STYLE_CYLPOLAR ? 1 : -1]; |
---|
| 305 | typedef int compiletimeassert_style5[STYLE_NOSURVEY == img_STYLE_NOSURVEY ? 1 : -1]; |
---|
| 306 | |
---|
[bb90203] | 307 | /* various settings preserved by *BEGIN and *END */ |
---|
| 308 | typedef struct Settings { |
---|
[b5a3219] | 309 | struct Settings *next; |
---|
[eb18f4d] | 310 | unsigned int Truncate; |
---|
[fa42426] | 311 | bool f_clino_percent; |
---|
| 312 | bool f_backclino_percent; |
---|
[dcbcae0] | 313 | bool dash_for_anon_wall_station; |
---|
[27b8b59] | 314 | unsigned char infer; |
---|
[bb90203] | 315 | enum {OFF, LOWER, UPPER} Case; |
---|
[107b8bd] | 316 | int style; |
---|
[bb90203] | 317 | prefix *Prefix; |
---|
[613028c] | 318 | prefix *begin_survey; /* used to check BEGIN and END match */ |
---|
[bb90203] | 319 | short *Translate; /* if short is >= 16 bits, which ANSI requires */ |
---|
| 320 | real Var[Q_MAC]; |
---|
| 321 | real z[Q_MAC]; |
---|
| 322 | real sc[Q_MAC]; |
---|
[cb3d1e2] | 323 | real units[Q_MAC]; |
---|
[0395657] | 324 | reading *ordering; |
---|
[47c7a94] | 325 | int begin_lineno; /* 0 means no block started in this file */ |
---|
[5c3c61a] | 326 | int flags; |
---|
[c092d72] | 327 | projPJ proj; |
---|
[b5a3219] | 328 | meta_data * meta; |
---|
[bb90203] | 329 | } settings; |
---|
| 330 | |
---|
| 331 | /* global variables */ |
---|
| 332 | extern settings *pcs; |
---|
| 333 | extern prefix *root; |
---|
[a2c33ae] | 334 | extern prefix *anon_list; |
---|
[bb90203] | 335 | extern node *stnlist; |
---|
[3875c32] | 336 | extern unsigned long optimize; |
---|
[c092d72] | 337 | extern projPJ proj_out; |
---|
| 338 | extern char * proj_str_out; |
---|
[bd283cf6] | 339 | |
---|
[bb90203] | 340 | extern char *survey_title; |
---|
| 341 | extern int survey_title_len; |
---|
| 342 | |
---|
| 343 | extern bool fExplicitTitle; |
---|
| 344 | extern long cLegs, cStns, cComponents; |
---|
| 345 | extern FILE *fhErrStat; |
---|
[693388e] | 346 | extern img *pimg; |
---|
[bb90203] | 347 | #ifndef NO_PERCENTAGE |
---|
| 348 | extern bool fPercent; |
---|
| 349 | #endif |
---|
| 350 | extern real totadj, total, totplan, totvert; |
---|
| 351 | extern real min[3], max[3]; |
---|
| 352 | extern prefix *pfxHi[3], *pfxLo[3]; |
---|
[647407d] | 353 | extern bool fQuiet; /* just show brief summary + errors */ |
---|
[ed0f5b6] | 354 | extern bool fMute; /* just show errors */ |
---|
[c0b279c] | 355 | extern bool fSuppress; /* only output 3d file */ |
---|
[bb90203] | 356 | |
---|
| 357 | /* macros */ |
---|
| 358 | |
---|
| 359 | #define POS(S, D) ((S)->name->pos->p[(D)]) |
---|
| 360 | #define POSD(S) ((S)->name->pos->p) |
---|
| 361 | |
---|
| 362 | #define data_here(L) ((L)->l.reverse & FLAG_DATAHERE) |
---|
[cb3d1e2] | 363 | #define reverse_leg_dirn(L) ((L)->l.reverse & MASK_REVERSEDIRN) |
---|
| 364 | #define reverse_leg(L) ((L)->l.to->leg[reverse_leg_dirn(L)]) |
---|
[bb90203] | 365 | |
---|
| 366 | #if EXPLICIT_FIXED_FLAG |
---|
| 367 | # define pfx_fixed(N) ((N)->pos->fFixed) |
---|
[3e25a0d] | 368 | # define pos_fixed(P) ((P)->fFixed) |
---|
[bb90203] | 369 | # define fix(S) (S)->name->pos->fFixed = (char)fTrue |
---|
[084905c] | 370 | # define fixpos(P) (P)->fFixed = (char)fTrue |
---|
[bb90203] | 371 | # define unfix(S) (S)->name->pos->fFixed = (char)fFalse |
---|
| 372 | #else |
---|
| 373 | # define pfx_fixed(N) ((N)->pos->p[0] != UNFIXED_VAL) |
---|
[3e25a0d] | 374 | # define pos_fixed(P) ((P)->p[0] != UNFIXED_VAL) |
---|
[bb90203] | 375 | # define fix(S) NOP |
---|
[084905c] | 376 | # define fixpos(P) NOP |
---|
[bb90203] | 377 | # define unfix(S) POS((S), 0) = UNFIXED_VAL |
---|
| 378 | #endif |
---|
| 379 | #define fixed(S) pfx_fixed((S)->name) |
---|
| 380 | |
---|
[0af7076] | 381 | /* macros for special chars */ |
---|
[bb90203] | 382 | |
---|
| 383 | #define isEol(c) (pcs->Translate[(c)] & SPECIAL_EOL) |
---|
| 384 | #define isBlank(c) (pcs->Translate[(c)] & SPECIAL_BLANK) |
---|
| 385 | #define isKeywd(c) (pcs->Translate[(c)] & SPECIAL_KEYWORD) |
---|
| 386 | #define isComm(c) (pcs->Translate[(c)] & SPECIAL_COMMENT) |
---|
| 387 | #define isOmit(c) (pcs->Translate[(c)] & SPECIAL_OMIT) |
---|
[a882316] | 388 | #ifndef NO_DEPRECATED |
---|
[bb90203] | 389 | #define isRoot(c) (pcs->Translate[(c)] & SPECIAL_ROOT) |
---|
[a882316] | 390 | #endif |
---|
[bb90203] | 391 | #define isSep(c) (pcs->Translate[(c)] & SPECIAL_SEPARATOR) |
---|
| 392 | #define isNames(c) (pcs->Translate[(c)] & SPECIAL_NAMES) |
---|
| 393 | #define isDecimal(c) (pcs->Translate[(c)] & SPECIAL_DECIMAL) |
---|
| 394 | #define isMinus(c) (pcs->Translate[(c)] & SPECIAL_MINUS) |
---|
| 395 | #define isPlus(c) (pcs->Translate[(c)] & SPECIAL_PLUS) |
---|
[21c226e] | 396 | #define isOpen(c) (pcs->Translate[(c)] & SPECIAL_OPEN) |
---|
| 397 | #define isClose(c) (pcs->Translate[(c)] & SPECIAL_CLOSE) |
---|
[bb90203] | 398 | |
---|
| 399 | #define isSign(c) (pcs->Translate[(c)] & (SPECIAL_PLUS | SPECIAL_MINUS)) |
---|
| 400 | #define isData(c) (pcs->Translate[(c)] & (SPECIAL_OMIT | SPECIAL_ROOT|\ |
---|
| 401 | SPECIAL_SEPARATOR | SPECIAL_NAMES | SPECIAL_DECIMAL | SPECIAL_PLUS |\ |
---|
| 402 | SPECIAL_MINUS)) |
---|
| 403 | |
---|
[647407d] | 404 | typedef struct nosurveylink { |
---|
| 405 | node *fr, *to; |
---|
[b3bef47] | 406 | int flags; |
---|
[ee05463] | 407 | meta_data *meta; |
---|
[647407d] | 408 | struct nosurveylink *next; |
---|
| 409 | } nosurveylink; |
---|
| 410 | |
---|
| 411 | extern nosurveylink *nosurveyhead; |
---|
| 412 | |
---|
[ee05463] | 413 | typedef struct lrud { |
---|
| 414 | struct lrud * next; |
---|
| 415 | prefix *stn; |
---|
[a6301a1] | 416 | meta_data *meta; |
---|
[ee05463] | 417 | real l, r, u, d; |
---|
| 418 | } lrud; |
---|
| 419 | |
---|
| 420 | typedef struct lrudlist { |
---|
| 421 | lrud * tube; |
---|
| 422 | struct lrudlist * next; |
---|
| 423 | } lrudlist; |
---|
| 424 | |
---|
| 425 | extern lrudlist * model; |
---|
| 426 | |
---|
| 427 | extern lrud ** next_lrud; |
---|
| 428 | |
---|
[3875c32] | 429 | #endif /* CAVERN_H */ |
---|