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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
/* glplib.h (miscellaneous low-level routines) */
/*----------------------------------------------------------------------
-- Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Andrew Makhorin,
-- Department for Applied Informatics, Moscow Aviation Institute,
-- Moscow, Russia. All rights reserved. E-mail: <mao@mai2.rcnet.ru>.
--
-- This file is part of GLPK (GNU Linear Programming Kit).
--
-- GLPK 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, or (at your option)
-- any later version.
--
-- GLPK 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 GLPK; see the file COPYING. If not, write to the Free
-- Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
----------------------------------------------------------------------*/
#ifndef _GLPLIB_H
#define _GLPLIB_H
#define lib_set_ptr glp_lib_set_ptr
#define lib_get_ptr glp_lib_get_ptr
#define lib_get_time glp_lib_get_time
#define lib_init_env glp_lib_init_env
#define lib_env_ptr glp_lib_env_ptr
#define lib_free_env glp_lib_free_env
#define print glp_lib_print
#define lib_set_print_hook glp_lib_set_print_hook
#define fault glp_lib_fault
#define lib_set_fault_hook glp_lib_set_fault_hook
#define _insist glp_lib_insist
#define umalloc glp_lib_umalloc
#define ucalloc glp_lib_ucalloc
#define ufree glp_lib_ufree
#define ufopen glp_lib_ufopen
#define ufclose glp_lib_ufclose
#define str2int glp_lib_str2int
#define str2dbl glp_lib_str2dbl
#define strspx glp_lib_strspx
#define strtrim glp_lib_strtrim
#define fp2rat glp_lib_fp2rat
typedef struct LIBENV LIBENV;
typedef struct LIBMEM LIBMEM;
#define LIB_MAX_OPEN 20
/* maximal number of simultaneously open i/o streams */
struct LIBENV
{ /* library environmental block */
/*--------------------------------------------------------------*/
/* user-defined hook routines */
void *print_info;
/* transit pointer passed to the routine print_hook */
int (*print_hook)(void *info, char *msg);
/* user-defined print hook routine */
void *fault_info;
/* transit pointer passed to the routine fault_hook */
int (*fault_hook)(void *info, char *msg);
/* user-defined fault hook routine */
/*--------------------------------------------------------------*/
/* dynamic memory registration */
LIBMEM *mem_ptr;
/* pointer to the linked list of allocated memory blocks */
int mem_limit;
/* maximal amount of memory (in bytes) available for dynamic
allocation */
int mem_total;
/* total amount of currently allocated memory (in bytes; is the
sum of the size fields over all memory block descriptors) */
int mem_tpeak;
/* peak value of mem_total */
int mem_count;
/* total number of currently allocated memory blocks */
int mem_cpeak;
/* peak value of mem_count */
/*--------------------------------------------------------------*/
/* input/output streams registration */
void *file_slot[LIB_MAX_OPEN]; /* FILE *file_slot[]; */
/* file_slot[k], 0 <= k <= LIB_MAX_OPEN-1, is a pointer to k-th
i/o stream; if k-th slot is free, file_slot[k] is NULL */
};
struct LIBMEM
{ /* memory block descriptor */
int size;
/* size of block (in bytes, including descriptor) */
int flag;
/* descriptor flag */
LIBMEM *prev;
/* pointer to the previous memory block descriptor */
LIBMEM *next;
/* pointer to the next memory block descriptor */
/* actual data start here (there may be a "hole" between the next
field and actual data due to data alignment) */
};
#define LIB_MEM_FLAG 0x20101960
/* value used as memory block descriptor flag */
void lib_set_ptr(void *ptr);
/* store a pointer */
void *lib_get_ptr(void);
/* retrieve a pointer */
double lib_get_time(void);
/* determine the current universal time */
int lib_init_env(void);
/* initialize library environment */
LIBENV *lib_env_ptr(void);
/* retrieve a pointer to the environmental block */
int lib_free_env(void);
/* free library environment */
void print(char *fmt, ...);
/* print informative message */
void lib_set_print_hook(void *info, int (*hook)(void *info, char *msg));
/* install print hook routine */
void fault(char *fmt, ...);
/* print error message and terminate program execution */
void lib_set_fault_hook(void *info, int (*hook)(void *info, char *msg));
/* install fault hook routine */
#define insist(expr) \
((void)((expr) || (_insist(#expr, __FILE__, __LINE__), 1)))
void _insist(char *expr, char *file, int line);
/* check for logical condition */
/* some processors need data to be properly aligned; the align_boundary
macro defines the boundary, which should fit for all data types; the
align_datasize macro allows enlarging size of data item in order the
immediately following data of any type should be properly aligned */
#define align_boundary sizeof(double)
#define align_datasize(size) \
((((size) + (align_boundary - 1)) / align_boundary) * align_boundary)
void *umalloc(int size);
/* allocate memory block */
void *ucalloc(int nmemb, int size);
/* allocate memory block */
void ufree(void *ptr);
/* free memory block */
void *ufopen(char *fname, char *mode);
/* open file */
void ufclose(void *fp);
/* close file */
#define utime lib_get_time
/* determine the current universal time */
int str2int(char *str, int *val);
/* convert character string to value of integer type */
int str2dbl(char *str, double *val);
/* convert character string to value of double type */
char *strspx(char *str);
/* remove all spaces from character string */
char *strtrim(char *str);
/* remove trailing spaces from character string */
int fp2rat(double x, double eps, double *p, double *q);
/* convert floating-point number to rational number */
#endif
/* eof */
|
