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
|
/* Copyright (c) 1988 Bellcore
** All Rights Reserved
** Permission is granted to copy or use this program, EXCEPT that it
** may not be sold for profit, the copyright notice must be reproduced
** on copies, and credit should be given to Bellcore where it is due.
** BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
*/
#include "float.h"
#ifndef T_INCLUDED
/*
** values for tol_type
*/
#define T_ABSOLUTE 0
#define T_RELATIVE 1
#define T_IGNORE 2
typedef struct _T_tstr{
int tol_type; /* one of the above */
F_float flo_tol; /* tolerance is expressed in
terms of a floating point value */
struct _T_tstr *next;
} _T_struct, *T_tol;
#define _T_TOLMAX 10 /* number of tolerances that can
be in effect at one time */
#define _T_ADEF "1e-10" /* default absolute tolerance */
#define _T_RDEF "1e-10" /* default relative tolerance */
extern T_tol T_gettol();
extern void T_clear_tols();
extern void T_initdefault();
extern void T_setdef();
extern void T_tolline();
extern T_tol T_picktol();
extern int T_moretols();
#define T_gettype(x) (x->tol_type)
#define T_getfloat(x) (x->flo_tol)
#define T_getnext(x) (x->next)
#define T_settype(x,y) (x->tol_type = y)
#define T_setfloat(x,y) (x->flo_tol = y)
#define T_setnext(x,y) (x->next = y)
#define _T_null ((T_tol) 0)
#define T_isnull(x) ((x) == _T_null)
extern T_tol _T_gtol;
extern void _T_addtol();
extern void _T_appendtols();
/*
** routines for building the global tolerance list
*/
#define T_defatol(x) _T_addtol(&_T_gtol,T_ABSOLUTE,x)
#define T_defrtol(x) _T_addtol(&_T_gtol,T_RELATIVE,x)
#define T_defitol() _T_addtol(&_T_gtol,T_IGNORE,(char*)NULL)
#define _T_SEPCHAR ';'
#define T_INCLUDED
#endif
|
