WebSVN – wimsdev – Diff – /trunk/wims/src/Lib/libwims.h

 #include "../config.h"
 #include "../includes.h"
 #include "../wimsdef.h"
-        /* for mt19937ar.c */
+/* for mt19937ar.c */
 #ifdef RAND_MAX
 # undef RAND_MAX
 #endif
 #define RAND_MAX 2147483647
 #define random genrand_int31
 #define srandom init_genrand
 long int genrand_int31(void);
-        /* errors.c */
+/* errors.c */
 void (*error1) (char *msg);
 void (*error2) (char *msg);
 void (*error3) (char *msg);
-        /* lines.c */
+/* lines.c */
 char *int2str(int i);
 void *xmalloc(size_t n);
-int msleep(int ms);     /* millisecond sleeper */
+int msleep(int ms); /* millisecond sleeper */
-void _tolinux(char *p);         /* dos/mac to unix/linux translation */
+void _tolinux(char *p);  /* dos/mac to unix/linux translation */
-void ovlstrcpy(char *dest, char *src);  /* strcpy of possibly overlapping strings (64 bits problem)*/
+void ovlstrcpy(char *dest, char *src); /* strcpy of possibly overlapping strings (64 bits problem)*/
-void mystrncpy(char *dest, const char *src, size_t lim);        /* optimized and secured strncpy */
+void mystrncpy(char *dest, const char *src, size_t lim); /* optimized and secured strncpy */
-        /* find matching parenthesis.
+/* find matching parenthesis.
-         * The entrance point should be after the opening parenthesis.
+ * The entrance point should be after the opening parenthesis.
-         * Returns NULL if unmatched. */
+ * Returns NULL if unmatched.
+ */
 char *find_matching(char *p, char c);
-char *find_word_start(char *p); /* Strips leading spaces */
+char *find_word_start(char *p);       /* Strips leading spaces */
-char *find_word_end(char *p);   /* Points to the end of the word */
+char *find_word_end(char *p);         /* Points to the end of the word */
-char *strparchr(char *p, char c);       /* search for char, skipping parentheses */
+char *strparchr(char *p, char c);     /* search for char, skipping parentheses */
-char *strparstr(char *p, char *fnd);    /* search for string, skipping parentheses */
+char *strparstr(char *p, char *fnd);  /* search for string, skipping parentheses */
-char *find_item_end(char *p);   /* Points to the end of an item */
+char *find_item_end(char *p);         /* Points to the end of an item */
-char *find_line_end(char *p);   /* Points to the end of a line */
+char *find_line_end(char *p);         /* Points to the end of a line */
 char *charchr(char *p,char *w);
-char *wordchr(char *p, char *w);        /* Find first occurrence of word */
+char *wordchr(char *p, char *w);      /* Find first occurrence of word */
-char *itemchr(char *p, char *w);        /* Find first occurrence of item */
+char *itemchr(char *p, char *w);      /* Find first occurrence of item */
-char *linechr(char *p, char *w);        /* Find first occurrence of line */
+char *linechr(char *p, char *w);      /* Find first occurrence of line */
-char *varchr(char *p, char *v);         /* Find first occurrence of math variable */
+char *varchr(char *p, char *v);       /* Find first occurrence of math variable */
-int cutitems(char *p, char *list[], int max);   /* Cut items of a string */
+int cutitems(char *p, char *list[], int max);       /* Cut items of a string */
-int cutwords(char *p, char *list[], int max);   /* Cut words of a string */
+int cutwords(char *p, char *list[], int max);       /* Cut words of a string */
-int cutlines(char *p, char *list[], int max);   /* Cut lines of a string */
+int cutlines(char *p, char *list[], int max);       /* Cut lines of a string */
-int cutchars(char *p, char *list[], int max);   /* Cut chars of a string */
+int cutchars(char *p, char *list[], int max);       /* Cut chars of a string */
-char *strip_trailing_spaces(char *p);   /* strip trailing spaces; return string end. */
+char *strip_trailing_spaces(char *p);      /* strip trailing spaces; return string end. */
-        /* Verify whether a list is well-ordered. For debugging uses.
+/* Verify whether a list is well-ordered. For debugging uses.
-         * Returns 0 if order is OK, -1 otherwise. */
+ * Returns 0 if order is OK, -1 otherwise.
+ */
 int verify_order(void *list, int items, size_t item_size);
         /* searches a list. Returns index if found, -1 if nomatch.
-         * Uses binary search, list must be sorted. */
+ * Uses binary search, list must be sorted. */
 int search_list(void *list, int items, size_t item_size, const char *str);
-unsigned int linenum(char *p);          /* Returns number of lines in string p */
+unsigned int linenum(char *p);             /* Returns number of lines in string p */
-unsigned int itemnum(char *p);          /* Returns number of items in the list p, comma separated */
+unsigned int itemnum(char *p);             /* Returns number of items in the list p, comma separated */
-unsigned int wordnum(char *p);          /* Returns number of words in string p */
+unsigned int wordnum(char *p);             /* Returns number of words in string p */
-unsigned int charnum(char *p);          /* This is just to suppress an annoying compiler warning message. */
+unsigned int charnum(char *p);             /* This is just to suppress an annoying compiler warning message. */
 char *fnd_line(char *p, int n, char bf[]); /* find n-th line in string p */
 char *fnd_item(char *p, int n, char bf[]); /* find n-th item in list p, comma separated */
 char *fnd_word(char *p, int n, char bf[]); /* find n-th word in string p */
 char *fnd_char(char *p, int n, char bf[]); /* find n-th char in string p */
-char *fnd_row(char *p, int n, char bf[]); /* find n-th row in a matrix p */
+char *fnd_row(char *p, int n, char bf[]);  /* find n-th row in a matrix p */
-        /* Separate items in the string p, end each item with 0,
+/* Separate items in the string p, end each item with 0,
-         * and store item pointers in parm[]. Does not parse past max.
+ * and store item pointers in parm[]. Does not parse past max.
-         * Returns the number of fields. */
+ * Returns the number of fields. */
 int separate_item(char *p, char *parm[], int max);
 int separate_line(char *p, char *parm[], int max);
 int separate_word(char *p, char *parm[], int max);
 int _separator(char *p,char *parm[], int max, char fs);
-int rows2lines(char *p);                /* Returns 1 if semicolons changed to new lines */
+int rows2lines(char *p);        /* Returns 1 if semicolons changed to new lines */
 void lines2rows(char *p);
 unsigned int rownum(char *p);
-void words2items(char *p);      /* change words to items */
+void words2items(char *p);      /* change words to items */
-void words2lines(char *p);      /* change words to lines */
+void words2lines(char *p);      /* change words to lines */
-void lines2items(char *p);      /* change lines to items */
+void lines2items(char *p);      /* change lines to items */
-void lines2words(char *p);      /* change lines to words */
+void lines2words(char *p);      /* change lines to words */
-void items2words(char *p);      /* change items to words */
+void items2words(char *p);      /* change items to words */
-void items2lines(char *p);      /* change items to lines */
+void items2lines(char *p);      /* change items to lines */
-void strip_enclosing_par(char *p);      /* Strip enclosing pairs of parentheses */
+void strip_enclosing_par(char *p); /* Strip enclosing pairs of parentheses */
-        /* strstr but may have embedded zeros.
+/* strstr but may have embedded zeros.
-         * Returns memory end if not found.
+ * Returns memory end if not found.
-         * Supposes memory ends with 0. */
+ * Supposes memory ends with 0.
+ */
 char *memstr(char *s1, char *s2, int len);
-        /* Check whether parentheses are balanced in a given string.
+/* Check whether parentheses are balanced in a given string.
-         * Returns 0 if OK. */
+ * Returns 0 if OK.
+ */
-        /* style=0: simple check. style<>0: strong check. */
+/* style=0: simple check. style<>0: strong check. */
 int check_parentheses(char *p, int style);
-void nospace(char *p);          /* collapses all space characters in string. */
+void nospace(char *p);             /* collapses all space characters in string. */
-void singlespace(char *p);      /* change all spaces into ' ', and collapse multiple occurences */
+void singlespace(char *p);         /* change all spaces into ' ', and collapse multiple occurences */
-void deaccent(char *p);         /* fold accented letters to unaccented */
+void deaccent(char *p);            /* fold accented letters to unaccented */
-void reaccent(char *p);         /* compose accented letters using symbols */
+void reaccent(char *p);            /* compose accented letters using symbols */
-        /* modify a string. Bufferlen must be at least MAX_LINELEN */
+/* modify a string. Bufferlen must be at least MAX_LINELEN */
 void string_modify(char *start, char *bad_beg, char *bad_end, char *good,...);
 long int filelength(char *fn,...);
 int catfile(FILE *outf, char *fn,...);
 #ifdef libwims
  char *fnd_position;
 #else
  extern char *fnd_position;
  extern char *fnd_nextpos;
 #endif
-        /* evalue.c */
+/* evalue.c */
-#define EV_S    "EVLS"
+#define EV_S "EVLS"
-#define EV_T    "EVLT"
+#define EV_T "EVLT"
-#define EV_X    "EVLX"
+#define EV_X "EVLX"
-#define EV_Y    "EVLY"
+#define EV_Y "EVLY"
 typedef struct ev_variable{
     char *name; double value;
 } ev_variable;
 #ifdef LIBWIMS
  int *ev_varcnt=NULL;
 double binomial(double d1,double d2);
 double max(double d1, double d2);
 double min(double d1, double d2);
 double gcd(double n1, double n2);
 double lcm(double n1, double n2);
-int eval_getpos(char *name);            /* get position of name in nametable */
+int eval_getpos(char *name);            /* get position of name in nametable */
-void eval_setval(int pos, double v);    /* set value to name */
+void eval_setval(int pos, double v);    /* set value to name */
 void set_evalue_pointer(char *p);       /* prepare pointer for evaluation */
 char *get_evalue_pointer(void);         /* get string pointer (after evaluation) */
 double _evalue(int ord);
-double strevalue(char *p);              /* evalue a string to double */
+double strevalue(char *p);              /* evalue a string to double */
 char *(*substitute) (char *p);
 int get_evalue_error(void);
 void set_evalue_error(int e);
 int get_evalcnt(void);
 char *get_evalname(int i);
 int get_evaltype(int i);
 int evaltab_verify(void);
 int search_evaltab(char *p);
-        /* compile an expression for faster evaluation
+/* compile an expression for faster evaluation
-         * returns -1 if cannot be compiled.
+ * returns -1 if cannot be compiled.
-         * else returns the number of compilations. */
+ * else returns the number of compilations.
+ */
 int evalue_compile(char *p);
-        /* math.c */
+/* math.c */
-char *find_mathvar_start(char *p);      /* Points to the start of a mathematics variable (or number) */
+char *find_mathvar_start(char *p);  /* Points to the start of a mathematics variable (or number) */
-char *find_mathvar_end(char *p);        /* Points to the end of a mathematics variable (or number) */
+char *find_mathvar_end(char *p);    /* Points to the end of a mathematics variable (or number) */
-void mathvarlist(char *p);              /* list variable (function) names in an expression. buffer is modified to contain the list. */
+void mathvarlist(char *p);          /* list variable (function) names in an expression. buffer is modified to contain the list. */
-        /* dir.c */
+/* dir.c */
-int remove_tree(char *dirname);         /* remove a directory tree */
+int remove_tree(char *dirname);     /* remove a directory tree */
-void mkdirs(char *s);                   /* recursively generate a directory structure */
+void mkdirs(char *s);               /* recursively generate a directory structure */
-        /* text.c */
+/* text.c */
-void text(char *p);             /* main entry point for text routines */
+void text(char *p);                 /* main entry point for text routines */
 int textab_verify(void);
-        /* levelcurve.c */
+/* levelcurve.c */
-#define LEVEL_LIM       256
+#define LEVEL_LIM      256
-#define LEVELPOINT_LIM  16384
+#define LEVELPOINT_LIM 16384
-#define LEVELSIZE_LIM   2048
+#define LEVELSIZE_LIM  2048
-#define LEVELGRAIN_LIM  16
+#define LEVELGRAIN_LIM 16
 typedef struct {
     char *fn, *xname, *yname;
     double levels[LEVEL_LIM];
     int xsize,ysize,grain,levelcnt,datacnt,xevpos,yevpos;
     double xrange[2],yrange[2],xspan,yspan;
     short unsigned int xdata[LEVELPOINT_LIM],ydata[LEVELPOINT_LIM];
 } leveldata;
-int levelcurve(leveldata *ld);  /* produces level curve data. Returns non-zero if error. */
+int levelcurve(leveldata *ld);      /* produces level curve data. Returns non-zero if error. */
 /* My accelerated definitions. */
 #define myisdigit(x) (x>='0' && x<='9')
 #define myisalpha(x) ((x&~32)>='A' && (x&~32)<='Z')
 #define myisalnum(x) (myisalpha(x) || myisdigit(x))

Subversion Repositories wimsdev

(root)/trunk/wims/src/Lib/libwims.h – Rev 5476 → 7798