Subversion Repositories wimsdev

Rev

Rev 5476 | Rev 7847 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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.  
  24. /* for mt19937ar.c */
  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);
  32.  
  33. /* errors.c */
  34. void (*error1) (char *msg);
  35. void (*error2) (char *msg);
  36. void (*error3) (char *msg);
  37.  
  38. /* lines.c */
  39. char *int2str(int i);
  40. void *xmalloc(size_t n);
  41. int msleep(int ms); /* millisecond sleeper */
  42. void _tolinux(char *p);  /* dos/mac to unix/linux translation */
  43. void ovlstrcpy(char *dest, char *src); /* strcpy of possibly overlapping strings (64 bits problem)*/
  44. void mystrncpy(char *dest, const char *src, size_t lim); /* optimized and secured strncpy */
  45. /* find matching parenthesis.
  46.  * The entrance point should be after the opening parenthesis.
  47.  * Returns NULL if unmatched.
  48.  */
  49. char *find_matching(char *p, char c);
  50. char *find_word_start(char *p);       /* Strips leading spaces */
  51. char *find_word_end(char *p);         /* Points to the end of the word */
  52. char *strparchr(char *p, char c);     /* search for char, skipping parentheses */
  53. char *strparstr(char *p, char *fnd);  /* search for string, skipping parentheses */
  54. char *find_item_end(char *p);         /* Points to the end of an item */
  55. char *find_line_end(char *p);         /* Points to the end of a line */
  56. char *charchr(char *p,char *w);
  57. char *wordchr(char *p, char *w);      /* Find first occurrence of word */
  58. char *itemchr(char *p, char *w);      /* Find first occurrence of item */
  59. char *linechr(char *p, char *w);      /* Find first occurrence of line */
  60. char *varchr(char *p, char *v);       /* Find first occurrence of math variable */
  61. int cutitems(char *p, char *list[], int max);       /* Cut items of a string */
  62. int cutwords(char *p, char *list[], int max);       /* Cut words of a string */
  63. int cutlines(char *p, char *list[], int max);       /* Cut lines of a string */
  64. int cutchars(char *p, char *list[], int max);       /* Cut chars of a string */
  65. char *strip_trailing_spaces(char *p);      /* strip trailing spaces; return string end. */
  66. /* Verify whether a list is well-ordered. For debugging uses.
  67.  * Returns 0 if order is OK, -1 otherwise.
  68.  */
  69. int verify_order(void *list, int items, size_t item_size);
  70.         /* searches a list. Returns index if found, -1 if nomatch.
  71.  * Uses binary search, list must be sorted. */
  72. int search_list(void *list, int items, size_t item_size, const char *str);
  73. unsigned int linenum(char *p);             /* Returns number of lines in string p */
  74. unsigned int itemnum(char *p);             /* Returns number of items in the list p, comma separated */
  75. unsigned int wordnum(char *p);             /* Returns number of words in string p */
  76. unsigned int charnum(char *p);             /* This is just to suppress an annoying compiler warning message. */
  77. char *fnd_line(char *p, int n, char bf[]); /* find n-th line in string p */
  78. char *fnd_item(char *p, int n, char bf[]); /* find n-th item in list p, comma separated */
  79. char *fnd_word(char *p, int n, char bf[]); /* find n-th word in string p */
  80. char *fnd_char(char *p, int n, char bf[]); /* find n-th char in string p */
  81. char *fnd_row(char *p, int n, char bf[]);  /* find n-th row in a matrix p */
  82. /* Separate items in the string p, end each item with 0,
  83.  * and store item pointers in parm[]. Does not parse past max.
  84.  * Returns the number of fields. */
  85. int separate_item(char *p, char *parm[], int max);
  86. int separate_line(char *p, char *parm[], int max);
  87. int separate_word(char *p, char *parm[], int max);
  88. int _separator(char *p,char *parm[], int max, char fs);
  89. int rows2lines(char *p);        /* Returns 1 if semicolons changed to new lines */
  90. void lines2rows(char *p);
  91. unsigned int rownum(char *p);
  92. void words2items(char *p);      /* change words to items */
  93. void words2lines(char *p);      /* change words to lines */
  94. void lines2items(char *p);      /* change lines to items */
  95. void lines2words(char *p);      /* change lines to words */
  96. void items2words(char *p);      /* change items to words */
  97. void items2lines(char *p);      /* change items to lines */
  98. void strip_enclosing_par(char *p); /* Strip enclosing pairs of parentheses */
  99. /* strstr but may have embedded zeros.
  100.  * Returns memory end if not found.
  101.  * Supposes memory ends with 0.
  102.  */
  103. char *memstr(char *s1, char *s2, int len);
  104. /* Check whether parentheses are balanced in a given string.
  105.  * Returns 0 if OK.
  106.  */
  107. /* style=0: simple check. style<>0: strong check. */
  108. int check_parentheses(char *p, int style);
  109. void nospace(char *p);             /* collapses all space characters in string. */
  110. void singlespace(char *p);         /* change all spaces into ' ', and collapse multiple occurences */
  111. void deaccent(char *p);            /* fold accented letters to unaccented */
  112. void reaccent(char *p);            /* compose accented letters using symbols */
  113. /* modify a string. Bufferlen must be at least MAX_LINELEN */
  114. void string_modify(char *start, char *bad_beg, char *bad_end, char *good,...);
  115. long int filelength(char *fn,...);
  116. int catfile(FILE *outf, char *fn,...);
  117. #ifdef libwims
  118.  char *fnd_position;
  119.  char *fnd_nextpos;
  120. #else
  121.  extern char *fnd_position;
  122.  extern char *fnd_nextpos;
  123. #endif
  124.  
  125. /* evalue.c */
  126. #define EV_S "EVLS"
  127. #define EV_T "EVLT"
  128. #define EV_X "EVLX"
  129. #define EV_Y "EVLY"
  130. typedef struct ev_variable{
  131.     char *name; double value;
  132. } ev_variable;
  133. #ifdef LIBWIMS
  134.  int *ev_varcnt=NULL;
  135.  ev_variable *ev_var=NULL;
  136. #else
  137.  extern int *ev_varcnt;
  138.  extern ev_variable *ev_var;
  139. #endif
  140. char *moneyprint(char *p, double s);
  141. double factorial(double d);
  142. void init_random(void);
  143. double drand(double m);
  144. double irand(double n);
  145. double sign(double d);
  146. double factorial(double d);
  147. double binomial(double d1,double d2);
  148. double max(double d1, double d2);
  149. double min(double d1, double d2);
  150. double gcd(double n1, double n2);
  151. double lcm(double n1, double n2);
  152. int eval_getpos(char *name);            /* get position of name in nametable */
  153. void eval_setval(int pos, double v);    /* set value to name */
  154. void set_evalue_pointer(char *p);       /* prepare pointer for evaluation */
  155. char *get_evalue_pointer(void);         /* get string pointer (after evaluation) */
  156. double _evalue(int ord);
  157. double strevalue(char *p);              /* evalue a string to double */
  158. char *(*substitute) (char *p);
  159. int get_evalue_error(void);
  160. void set_evalue_error(int e);
  161. int get_evalcnt(void);
  162. char *get_evalname(int i);
  163. int get_evaltype(int i);
  164. int evaltab_verify(void);
  165. int search_evaltab(char *p);
  166. /* compile an expression for faster evaluation
  167.  * returns -1 if cannot be compiled.
  168.  * else returns the number of compilations.
  169.  */
  170. int evalue_compile(char *p);
  171.  
  172. /* math.c */
  173. char *find_mathvar_start(char *p);  /* Points to the start of a mathematics variable (or number) */
  174. char *find_mathvar_end(char *p);    /* Points to the end of a mathematics variable (or number) */
  175. void mathvarlist(char *p);          /* list variable (function) names in an expression. buffer is modified to contain the list. */
  176.  
  177. /* dir.c */
  178. int remove_tree(char *dirname);     /* remove a directory tree */
  179. void mkdirs(char *s);               /* recursively generate a directory structure */
  180.  
  181. /* text.c */
  182. void text(char *p);                 /* main entry point for text routines */
  183. int textab_verify(void);
  184.  
  185. /* levelcurve.c */
  186. #define LEVEL_LIM      256
  187. #define LEVELPOINT_LIM 16384
  188. #define LEVELSIZE_LIM  2048
  189. #define LEVELGRAIN_LIM 16
  190. typedef struct {
  191.     char *fn, *xname, *yname;
  192.     double levels[LEVEL_LIM];
  193.     int xsize,ysize,grain,levelcnt,datacnt,xevpos,yevpos;
  194.     double xrange[2],yrange[2],xspan,yspan;
  195.     short unsigned int xdata[LEVELPOINT_LIM],ydata[LEVELPOINT_LIM];
  196. } leveldata;
  197. int levelcurve(leveldata *ld);      /* produces level curve data. Returns non-zero if error. */
  198.  
  199. /* My accelerated definitions. */
  200. #define myisdigit(x) (x>='0' && x<='9')
  201. #define myisalpha(x) ((x&~32)>='A' && (x&~32)<='Z')
  202. #define myisalnum(x) (myisalpha(x) || myisdigit(x))
  203. #define myisupper(x) (x>='A' && x<='Z')
  204. #define myislower(x) (x>='a' && x<='z')
  205. #define myislspace(x) (x==' ' || x=='\t')
  206. #define myisspace(x) (x==' ' || x=='\t' || x=='\n' || x=='\r')
  207.  
  208. /* should put parenthesis around x
  209. #define myisdigit(x) ((x)>='0' && x<='9')
  210. #define myisalpha(x) (((x)&~32)>='A' && ((x)&~32)<='Z')
  211. #define myisalnum(x) (myisalpha(x) || myisdigit(x))
  212. #define myisupper(x) ((x)>='A' && (x)<='Z')
  213. #define myislower(x) ((x)>='a' && (x)<='z')
  214. #define myislspace(x) ((x)==' ' || (x)=='\t')
  215. #define myisspace(x) ((x)==' ' || (x)=='\t' || (x)=='\n' || (x)=='\r')
  216. */
  217. /*ou
  218. inline int myisdigit(char x) { return x>='0' && x<='9'; }
  219. */
  220.