Subversion Repositories wimsdev

Rev

Rev 8122 | Rev 8177 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
10 reyssat 1
/*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
2
 *
3
 *  This program is free software; you can redistribute it and/or modify
4
 *  it under the terms of the GNU General Public License as published by
5
 *  the Free Software Foundation; either version 2 of the License, or
6
 *  (at your option) any later version.
7
 *
8
 *  This program is distributed in the hope that it will be useful,
9
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
10
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
 *  GNU General Public License for more details.
12
 *
13
 *  You should have received a copy of the GNU General Public License
14
 *  along with this program; if not, write to the Free Software
15
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
16
 */
17
 
18
/* WWW multipurpose server, dynamic library definitions */
19
 
20
#include "../config.h"
21
#include "../includes.h"
22
#include "../wimsdef.h"
23
 
7798 bpr 24
/* for mt19937ar.c */
10 reyssat 25
#ifdef RAND_MAX
26
# undef RAND_MAX
27
#endif
28
#define RAND_MAX 2147483647
29
#define random genrand_int31
30
#define srandom init_genrand
31
long int genrand_int31(void);
8100 bpr 32
void init_genrand(unsigned long s);
10 reyssat 33
 
7798 bpr 34
/* errors.c */
10 reyssat 35
void (*error1) (char *msg);
36
void (*error2) (char *msg);
37
void (*error3) (char *msg);
38
 
8122 bpr 39
/* liblines.c */
10 reyssat 40
char *int2str(int i);
41
void *xmalloc(size_t n);
7798 bpr 42
int msleep(int ms); /* millisecond sleeper */
43
void _tolinux(char *p);  /* dos/mac to unix/linux translation */
44
void ovlstrcpy(char *dest, char *src); /* strcpy of possibly overlapping strings (64 bits problem)*/
45
void mystrncpy(char *dest, const char *src, size_t lim); /* optimized and secured strncpy */
46
/* find matching parenthesis.
47
 * The entrance point should be after the opening parenthesis.
48
 * Returns NULL if unmatched.
49
 */
10 reyssat 50
char *find_matching(char *p, char c);
7798 bpr 51
char *find_word_start(char *p);       /* Strips leading spaces */
52
char *find_word_end(char *p);         /* Points to the end of the word */
53
char *strparchr(char *p, char c);     /* search for char, skipping parentheses */
54
char *strparstr(char *p, char *fnd);  /* search for string, skipping parentheses */
55
char *find_item_end(char *p);         /* Points to the end of an item */
56
char *find_line_end(char *p);         /* Points to the end of a line */
10 reyssat 57
char *charchr(char *p,char *w);
7798 bpr 58
char *wordchr(char *p, char *w);      /* Find first occurrence of word */
59
char *itemchr(char *p, char *w);      /* Find first occurrence of item */
60
char *linechr(char *p, char *w);      /* Find first occurrence of line */
61
char *varchr(char *p, char *v);       /* Find first occurrence of math variable */
62
int cutitems(char *p, char *list[], int max);       /* Cut items of a string */
63
int cutwords(char *p, char *list[], int max);       /* Cut words of a string */
64
int cutlines(char *p, char *list[], int max);       /* Cut lines of a string */
65
int cutchars(char *p, char *list[], int max);       /* Cut chars of a string */
66
char *strip_trailing_spaces(char *p);      /* strip trailing spaces; return string end. */
67
/* Verify whether a list is well-ordered. For debugging uses.
68
 * Returns 0 if order is OK, -1 otherwise.
69
 */
10 reyssat 70
int verify_order(void *list, int items, size_t item_size);
8079 bpr 71
/* searches a list. Returns index if found, (-1-index of insertion) if nomatch.
72
 * Uses binary search, list must be sorted.
73
 */
10 reyssat 74
int search_list(void *list, int items, size_t item_size, const char *str);
7798 bpr 75
unsigned int linenum(char *p);             /* Returns number of lines in string p */
76
unsigned int itemnum(char *p);             /* Returns number of items in the list p, comma separated */
77
unsigned int wordnum(char *p);             /* Returns number of words in string p */
78
unsigned int charnum(char *p);             /* This is just to suppress an annoying compiler warning message. */
10 reyssat 79
char *fnd_line(char *p, int n, char bf[]); /* find n-th line in string p */
80
char *fnd_item(char *p, int n, char bf[]); /* find n-th item in list p, comma separated */
81
char *fnd_word(char *p, int n, char bf[]); /* find n-th word in string p */
82
char *fnd_char(char *p, int n, char bf[]); /* find n-th char in string p */
7798 bpr 83
char *fnd_row(char *p, int n, char bf[]);  /* find n-th row in a matrix p */
84
/* Separate items in the string p, end each item with 0,
85
 * and store item pointers in parm[]. Does not parse past max.
8079 bpr 86
 * Returns the number of fields.
87
 */
10 reyssat 88
int separate_item(char *p, char *parm[], int max);
89
int separate_line(char *p, char *parm[], int max);
90
int separate_word(char *p, char *parm[], int max);
91
int _separator(char *p,char *parm[], int max, char fs);
7798 bpr 92
int rows2lines(char *p);        /* Returns 1 if semicolons changed to new lines */
10 reyssat 93
void lines2rows(char *p);
94
unsigned int rownum(char *p);
7798 bpr 95
void words2items(char *p);      /* change words to items */
96
void words2lines(char *p);      /* change words to lines */
97
void lines2items(char *p);      /* change lines to items */
98
void lines2words(char *p);      /* change lines to words */
99
void items2words(char *p);      /* change items to words */
100
void items2lines(char *p);      /* change items to lines */
101
void strip_enclosing_par(char *p); /* Strip enclosing pairs of parentheses */
102
/* strstr but may have embedded zeros.
103
 * Returns memory end if not found.
104
 * Supposes memory ends with 0.
105
 */
10 reyssat 106
char *memstr(char *s1, char *s2, int len);
7798 bpr 107
/* Check whether parentheses are balanced in a given string.
108
 * Returns 0 if OK.
109
 */
110
/* style=0: simple check. style<>0: strong check. */
10 reyssat 111
int check_parentheses(char *p, int style);
7798 bpr 112
void nospace(char *p);             /* collapses all space characters in string. */
113
void singlespace(char *p);         /* change all spaces into ' ', and collapse multiple occurences */
114
void deaccent(char *p);            /* fold accented letters to unaccented */
115
void reaccent(char *p);            /* compose accented letters using symbols */
116
/* modify a string. Bufferlen must be at least MAX_LINELEN */
8086 bpr 117
extern void (*string_modify)(char *start, char *bad_beg, char *bad_end, char *good,...);
118
void string_modify1(char *start, char *bad_beg, char *bad_end, char *good,...);
119
void string_modify2(char *start, char *bad_beg, char *bad_end, char *good,...);
120
 
10 reyssat 121
long int filelength(char *fn,...);
122
int catfile(FILE *outf, char *fn,...);
8160 bpr 123
extern char *fnd_position;
124
extern char *fnd_nextpos;
10 reyssat 125
 
8100 bpr 126
extern char *acctab, *deatab;
127
 
7798 bpr 128
/* evalue.c */
129
#define EV_S "EVLS"
130
#define EV_T "EVLT"
131
#define EV_X "EVLX"
132
#define EV_Y "EVLY"
10 reyssat 133
typedef struct ev_variable{
134
    char *name; double value;
135
} ev_variable;
8160 bpr 136
 
137
extern int *ev_varcnt;
138
extern ev_variable *ev_var;
139
 
140
 
10 reyssat 141
char *moneyprint(char *p, double s);
142
double factorial(double d);
143
void init_random(void);
144
double drand(double m);
145
double irand(double n);
146
double sign(double d);
147
double factorial(double d);
148
double binomial(double d1,double d2);
149
double max(double d1, double d2);
150
double min(double d1, double d2);
151
double gcd(double n1, double n2);
152
double lcm(double n1, double n2);
7798 bpr 153
int eval_getpos(char *name);            /* get position of name in nametable */
154
void eval_setval(int pos, double v);    /* set value to name */
7847 bpr 155
/*void set_evalue_pointer(char *p); */      /* prepare pointer for evaluation */
156
/* char *get_evalue_pointer(void); */        /* get string pointer (after evaluation) */
157
/* double _evalue(int ord);*/
158
double strevalue(char *p);              /* evalue a string to double after checking it*/
159
double checked_eval (char* p);  /* evalue a string to double */
10 reyssat 160
char *(*substitute) (char *p);
7847 bpr 161
/* int get_evalue_error(void);
162
void set_evalue_error(int e);*/
10 reyssat 163
int get_evalcnt(void);
164
char *get_evalname(int i);
165
int get_evaltype(int i);
166
int evaltab_verify(void);
167
int search_evaltab(char *p);
7798 bpr 168
/* compile an expression for faster evaluation
169
 * returns -1 if cannot be compiled.
170
 * else returns the number of compilations.
171
 */
10 reyssat 172
int evalue_compile(char *p);
7847 bpr 173
typedef struct eval_struct {char *texte; int x; int y; int s; int t;} eval_struct;
174
eval_struct * eval_create (char *in_p); /* speed up the evaluation by
175
  "precompiling" the string to be evaluated.*/
176
/* evaluate standard functions with at most four variables named
177
 * "x", "y", "s" and "t"
178
 */
10 reyssat 179
 
7847 bpr 180
double eval_x (eval_struct *p, double x); /* evaluate standard function in x*/
181
double eval_t (eval_struct *p, double t); /* evaluate standard function in t*/
182
double eval_x_y (eval_struct *p, double x, double y); /* evaluate standard function in x and y*/
183
double eval_multiple (eval_struct *p, double x, double y, double s, double t);
184
void eval_destroy (eval_struct *q); /* reclaim the memory */
185
 
7798 bpr 186
/* math.c */
187
char *find_mathvar_start(char *p);  /* Points to the start of a mathematics variable (or number) */
188
char *find_mathvar_end(char *p);    /* Points to the end of a mathematics variable (or number) */
189
void mathvarlist(char *p);          /* list variable (function) names in an expression. buffer is modified to contain the list. */
10 reyssat 190
 
7798 bpr 191
/* dir.c */
192
int remove_tree(char *dirname);     /* remove a directory tree */
193
void mkdirs(char *s);               /* recursively generate a directory structure */
10 reyssat 194
 
7798 bpr 195
/* text.c */
196
void text(char *p);                 /* main entry point for text routines */
10 reyssat 197
int textab_verify(void);
198
 
7798 bpr 199
/* levelcurve.c */
200
#define LEVEL_LIM      256
201
#define LEVELPOINT_LIM 16384
202
#define LEVELSIZE_LIM  2048
203
#define LEVELGRAIN_LIM 16
10 reyssat 204
typedef struct {
205
    char *fn, *xname, *yname;
206
    double levels[LEVEL_LIM];
207
    int xsize,ysize,grain,levelcnt,datacnt,xevpos,yevpos;
208
    double xrange[2],yrange[2],xspan,yspan;
209
    short unsigned int xdata[LEVELPOINT_LIM],ydata[LEVELPOINT_LIM];
210
} leveldata;
7798 bpr 211
int levelcurve(leveldata *ld);      /* produces level curve data. Returns non-zero if error. */
10 reyssat 212
 
213
/* My accelerated definitions. */
8079 bpr 214
#define myisdigit(x) ((x)>='0' && (x)<='9')
5456 bpr 215
#define myisalpha(x) (((x)&~32)>='A' && ((x)&~32)<='Z')
216
#define myisalnum(x) (myisalpha(x) || myisdigit(x))
217
#define myisupper(x) ((x)>='A' && (x)<='Z')
218
#define myislower(x) ((x)>='a' && (x)<='z')
219
#define myislspace(x) ((x)==' ' || (x)=='\t')
220
#define myisspace(x) ((x)==' ' || (x)=='\t' || (x)=='\n' || (x)=='\r')
8079 bpr 221
 
5456 bpr 222
/*ou
223
inline int myisdigit(char x) { return x>='0' && x<='9'; }
5476 bpr 224
*/