WebSVN – wimsdev – Diff – /trunk/wims/src/Lib/liblines.c

 /* copies src to dest, at most lim bytes. Error if more than
    MAX_LINELEN chars would be copied, including final \0. */
 void mystrncpy(char *dest, const char *src, size_t lim)
+{
-      if (lim)
+  if (lim){
-      {
-        size_t i = strlen(src);
+    size_t i = strlen(src);
-        if (i >= lim) i = lim-1;
+    if (i >= lim) i = lim-1;
-        if (i >= MAX_LINELEN) error("cmd_output_too_long");
+    if (i >= MAX_LINELEN) error("cmd_output_too_long");
-        memmove(dest,src,i); dest[i]=0;
+    memmove(dest,src,i); dest[i]=0;
-      }
+  }
+}
 /* find matching parenthesis.
  * The entrance point should be after the opening
  * parenthesis.
  * Returns NULL if unmatched.
  */
 char *find_matching(char *p, char c)
+{
-    char *pp;
+  char *pp;
-    int parenth, brak, brace;
+  int parenth, brak, brace;
-    if(c=='|') {
+  if(c=='|') {
-      for(pp=p;*pp!=0;pp++) {
-          switch(*pp) {
-            case '|': return pp;
-            case '(': {
-              pp=find_matching(pp+1,')');
-              if(pp==NULL) return NULL;
-              break;
-            }
-            case '[': {
-                pp=find_matching(pp+1,']');
-                if(pp==NULL) return NULL;
-                break;
-            }
-            case '{': {
-                pp=find_matching(pp+1,'}');
-                if(pp==NULL) return NULL;
-                break;
-            }
-            case ')':
-            case ']':
-            case '}': return NULL;
-            default: break;
-          }
-      }
-      return NULL;
-    }
-    parenth=brak=brace=0;
-    for(pp=p; *pp!=0; pp++) {
+    for(pp=p;*pp!=0;pp++) {
       switch(*pp) {
-          case '[': brak++; break;
+        case '|': return pp;
-          case ']': brak--; break;
+        case '(': {
-          case '(': parenth++; break;
+          pp=find_matching(pp+1,')');
-          case ')': parenth--; break;
+          if(pp==NULL) return NULL;
+          break;
+        }
-          case '{': brace++; break;
+        case '[': {
+          pp=find_matching(pp+1,']');
-          case '}': brace--; break;
+          if(pp==NULL) return NULL;
-          default: continue;
+          break;
-      }
+        }
+        case '{': {
-      if(parenth<0 || brak<0 || brace<0) {
+          pp=find_matching(pp+1,'}');
-          if(*pp!=c || parenth>0 || brak>0 || brace>0) return NULL;
+          if(pp==NULL) return NULL;
-          else break;
+          break;
+        }
+        case ')':
+        case ']':
+        case '}': return NULL;
+        default: break;
+      }
+    }
+    return NULL;
+  }
+  parenth=brak=brace=0;
+  for(pp=p; *pp!=0; pp++) {
+    switch(*pp) {
+      case '[': brak++; break;
+      case ']': brak--; break;
+      case '(': parenth++; break;
+      case ')': parenth--; break;
+      case '{': brace++; break;
+      case '}': brace--; break;
+      default: continue;
+    }
+    if(parenth<0 || brak<0 || brace<0) {
+      if(*pp!=c || parenth>0 || brak>0 || brace>0) return NULL;
+      else break;
+    }
+  }
-    if(*pp!=c) return NULL;
+  if(*pp!=c) return NULL;
-    return pp;
+  return pp;
 }
 /* Points to the end of the word */
 char *find_word_end(char *p)
 {
-    while(!myisspace(*p) && *p!=0) p++;
+  while(!myisspace(*p) && *p!=0) p++;
-    return p;
+  return p;
+}
 /* Strips leading spaces */
 char *find_word_start(char *p)
 {
-    while(myisspace(*p)) p++;
+  while(myisspace(*p)) p++;
-    return p;
+  return p;
+}
 /* find a character in a string, but skipping parentheses. */
 char *strparchr(char *p, char c)
+{
-    char *pp;
+  char *pp;
-    for(pp=p;*pp && *pp!=c && pp-p<MAX_LINELEN; pp++) {
+  for(pp=p;*pp && *pp!=c && pp-p<MAX_LINELEN; pp++) {
-      switch(*pp) {
+    switch(*pp) {
-          case '(': pp=find_matching(pp+1,')'); break;
+      case '(': pp=find_matching(pp+1,')'); break;
-          case '[': pp=find_matching(pp+1,']'); break;
+      case '[': pp=find_matching(pp+1,']'); break;
-          case '{': pp=find_matching(pp+1,'}'); break;
+      case '{': pp=find_matching(pp+1,'}'); break;
-      }
-      if(pp==NULL) return NULL;
+    }
+    if(pp==NULL) return NULL;
+  }
-    if(*pp==c) return pp; else return NULL;
+  if(*pp==c) return pp; else return NULL;
+}
 /* search for string, skipping parentheses */
 char *strparstr(char *p, char *fnd)
+{
-    char *pp, c=*fnd;
+  char *pp, c=*fnd;
-    size_t n = strlen(fnd);
+  size_t n = strlen(fnd);
-    /*if(*fnd==0) return p+strlen(p);*/
+  /*if(*fnd==0) return p+strlen(p);*/
-    for(pp=p; *pp; pp++) {
+  for(pp=p; *pp; pp++) {
-      if(*pp==c && (n==1 || strncmp(pp,fnd,n)==0)) return pp;
+    if(*pp==c && (n==1 || strncmp(pp,fnd,n)==0)) return pp;
-      switch(*pp) {
+    switch(*pp) {
-          case '(': pp=find_matching(pp+1,')'); break;
+      case '(': pp=find_matching(pp+1,')'); break;
-          case '[': pp=find_matching(pp+1,']'); break;
+      case '[': pp=find_matching(pp+1,']'); break;
-          case '{': pp=find_matching(pp+1,'}'); break;
+      case '{': pp=find_matching(pp+1,'}'); break;
-      }
-      if (!pp) { pp = strstr(p,fnd); if (!pp) pp = p+strlen(p); break; }
+    }
+    if (!pp) { pp = strstr(p,fnd); if (!pp) pp = p+strlen(p); break; }
+  }
-    return pp;
+  return pp;
+}
 /* Points to the end of an item */
 char *find_item_end(char *p)
+{
-    return strparstr(p,",");
+  return strparstr(p,",");
+}
 /* Points to the end of an item */
 char *find_line_end(char *p)
+{
-    char *pp=strstr(p,"\n");
+  char *pp=strstr(p,"\n");
-    if(pp==NULL) pp=p+strlen(p);
+  if(pp==NULL) pp=p+strlen(p);
-    return pp;
+  return pp;
 }
 char *charchr(char *p,char *w)
 {
-    return strchr(p,w[0]);
+  return strchr(p,w[0]);
+}
 /* Find first occurrence of word */
 char *wordchr(char *p, char *w)
+{
-    char *r; int n;
+  char *r; int n;
-    if(*w==0) return NULL;
+  if(*w==0) return NULL;
-    n=strlen(w);
+  n=strlen(w);
-    for(r=strstr(p,w);r!=NULL &&
+  for(r=strstr(p,w);r!=NULL &&
       ( (r>p && !myisspace(*(r-1))) || (!myisspace(*(r+n)) && *(r+n)!=0) );
-      r=strstr(r+1,w)){};
+    r=strstr(r+1,w)){};
-    return r;
+  return r;
+}
 /* Find first occurrence of item */
 char *itemchr(char *p, char *w)
+{
-    char *r, *r1, *r2; int n;
+  char *r, *r1, *r2; int n;
-    if(*w==0) return NULL;
+  if(*w==0) return NULL;
-    n=strlen(w);
+  n=strlen(w);
-    for(r=strstr(p,w);r!=NULL; r=strstr(r+1,w)) {
+  for(r=strstr(p,w);r!=NULL; r=strstr(r+1,w)) {
-      r1=r-1;while(r1>=p && myisspace(*r1)) r1--;
+    r1=r-1;while(r1>=p && myisspace(*r1)) r1--;
-      r2=find_word_start(r+n);
+    r2=find_word_start(r+n);
-      if((r1<p || *r1==',') && (*r2==0 || *r2==',')) return r;
+    if((r1<p || *r1==',') && (*r2==0 || *r2==',')) return r;
-    }
+  }
-    return r;
+  return r;
+}
 /* Find first occurrence of line */
 char *linechr(char *p, char *w)
+{
-    char *r;
+  char *r;
-    int n;
+  int n;
-    if(*w==0) return NULL;
+  if(*w==0) return NULL;
-    n=strlen(w);
+  n=strlen(w);
-    for(r=strstr(p,w);r!=NULL; r=strstr(r+1,w)) {
+  for(r=strstr(p,w);r!=NULL; r=strstr(r+1,w)) {
-      if((r<=p || *(r-1)=='\n') && (*(r+n)==0 || *(r+n)=='\n'))
+    if((r<=p || *(r-1)=='\n') && (*(r+n)==0 || *(r+n)=='\n'))
-        break;
+      break;
-    }
+  }
-    return r;
+  return r;
+}
 /* find a variable in a string (math expression).
  * Returns the pointer or NULL. */
 char *varchr(char *p, char *v)
+{
-    char *pp; int n;
+  char *pp; int n;
-    if(*v==0) return NULL;
+  if(*v==0) return NULL;
-    n=strlen(v);
+  n=strlen(v);
-    for(pp=strstr(p,v); pp!=NULL; pp=strstr(pp+1,v)) {
+  for(pp=strstr(p,v); pp!=NULL; pp=strstr(pp+1,v)) {
-      if((pp==p || (!myisalnum(*(pp-1)) && *(pp-1)!='_')) &&
+    if((pp==p || (!myisalnum(*(pp-1)) && *(pp-1)!='_')) &&
-         ((!myisalnum(*(pp+n)) && *(pp+n)!='_' && *(pp+n)!='\'')
+       ((!myisalnum(*(pp+n)) && *(pp+n)!='_' && *(pp+n)!='\'')
-          || *(pp+n)==0)) break;
+        || *(pp+n)==0)) break;
-    }
+  }
-    return pp;
+  return pp;
+}
 int _cutit_(char *p, char *list[], int max, char *end_finder(char *pt), int tag)
+{
-    int i;
+  int i;
-    char *pp, *pe, *p0;
+  char *pp, *pe, *p0;
-    if(tag&1) pp=find_word_start(p); else pp=p; /* strip head space */
+  if(tag&1) pp=find_word_start(p); else pp=p; /* strip head space */
-    for(i=0;i<max && *pp;i++) {
+  for(i=0;i<max && *pp;i++) {
-      pe=end_finder(pp);
+    pe=end_finder(pp);
-      if((tag&2) && myisspace(pe[-1])) { /* strip trailing space */
+    if((tag&2) && myisspace(pe[-1])) { /* strip trailing space */
-          for(p0=pe; p0>pp && myisspace(p0[-1]); p0--);
+      for(p0=pe; p0>pp && myisspace(p0[-1]); p0--);
-          if(p0<pe) *p0=0;
+      if(p0<pe) *p0=0;
-      }
-      if(*pe) *pe++=0;
-      list[i]=pp;
-      if(tag&1) pp=find_word_start(pe); else pp=pe;
+    }
+    if(*pe) *pe++=0;
+    list[i]=pp;
+    if(tag&1) pp=find_word_start(pe); else pp=pe;
+  }
-    return i;
+  return i;
+}
 int cutitems(char *p, char *list[], int max)
+{
-    return _cutit_(p,list,max,find_item_end,3);
+  return _cutit_(p,list,max,find_item_end,3);
 }
 int cutwords(char *p, char *list[], int max)
 {
-    return _cutit_(find_word_start(p),list,max,find_word_end,1);
+  return _cutit_(find_word_start(p),list,max,find_word_end,1);
+}
 int cutlines(char *p, char *list[], int max)
+{
-    return _cutit_(p,list,max,find_line_end,0);
+  return _cutit_(p,list,max,find_line_end,0);
+}
 int cutchars(char *p, char *list[], int max)
+{
-    int i; char *pp;
+  int i; char *pp;
-    for(i=0,pp=p;*pp && i<max;list[i++]=pp++);
+  for(i=0,pp=p;*pp && i<max;list[i++]=pp++);
-    return i;
+  return i;
+}
 /* strip trailing spaces; return string end. */
 char *strip_trailing_spaces(char *p)
+{
-    char *pp;
+  char *pp;
-    if(*p==0) return p;
+  if(*p==0) return p;
-    for(pp=p+strlen(p)-1; pp>=p && myisspace(*pp); pp--);
+  for(pp=p+strlen(p)-1; pp>=p && myisspace(*pp); pp--);
-    if(pp[1]) pp[1]=0;
+  if(pp[1]) pp[1]=0;
-    return pp;
+  return pp;
+}
 /*  strip trailing spaces; return string end. */
 char *strip_trailing_spaces2(char *p)
+{
-    char *pp;
+  char *pp;
-    if(*p==0) return p;
+  if(*p==0) return p;
-    for(pp=p+strlen(p)-1; pp>=p && isspace(*pp); *(pp--)=0);
+  for(pp=p+strlen(p)-1; pp>=p && isspace(*pp); *(pp--)=0);
-    return pp;
+  return pp;
+}
 /* Routines for quick search of item in a list. */
 /* Verify whether a list is well-ordered. For debugging uses.
  * Returns 0 if order is OK, -1 otherwise. */
 int verify_order(void *list, int items, size_t item_size)
 {
-    int i; char *old, **p;
+  int i; char *old, **p;
-    p=list; old=*p;
+  p=list; old=*p;
-    for(i=item_size;i<items*item_size;i+=item_size) {
+  for(i=item_size;i<items*item_size;i+=item_size) {
-      p=list+i;
+    p=list+i;
-      if(strcmp(*p,old)<0) {
+    if(strcmp(*p,old)<0) {
-          fprintf(stderr,"Table disorder: %s > %s",old,*p);
+      fprintf(stderr,"Table disorder: %s > %s",old,*p);
-          exit(1);
+      exit(1);
-      }
-      old=*p;
+    }
+    old=*p;
+  }
-    return 0;
+  return 0;
+}
 /* searches a list. Returns index if found, (-1-index of insertion) if nomatch.
  * Uses binary search, list must be sorted. */
 int search_list(void *list, int items, size_t item_size, const char *str)
 {
- int i = 0;
+  int i = 0;
- while (items > 0)
+  while (items > 0){
-   {
-     int m = items / 2, j = i + m;
+    int m = items / 2, j = i + m;
-     int k = strcmp(*(char **)(list + j * item_size), str);
+    int k = strcmp(*(char **)(list + j * item_size), str);
-     if (k == 0) return j;
+    if (k == 0) return j;
-     if (k > 0) items = m; else {i = j + 1; items -= (m + 1);}
+    if (k > 0) items = m; else {i = j + 1; items -= (m + 1);}
-   }
+  }
- return ~i;
+  return ~i;
 }
 /* Returns number of lines in string p */
 unsigned int linenum(char *p)
 {
-    int i; char *pp;
+  int i; char *pp;
-    /* Ending blank line will be thus removed. */
+  /* Ending blank line will be thus removed. */
-    i=strlen(p); if(i>1 && *(p+i-1)=='\n') *(p+i-1)=0;
+  i=strlen(p); if(i>1 && *(p+i-1)=='\n') *(p+i-1)=0;
-    if(*p=='\n') i=1; else i=0;
+  if(*p=='\n') i=1; else i=0;
-    for(pp=p; pp!=NULL && *pp!=0; pp=strchr(pp+1,'\n'), i++);
+  for(pp=p; pp!=NULL && *pp!=0; pp=strchr(pp+1,'\n'), i++);
-    return i;
+  return i;
+}
 /* Returns number of items in the list p, comma separated */
 unsigned int itemnum(char *p)
 {
-    int i; char *pp;
+  int i; char *pp;
-    if(*p==0) return 0;
+  if(*p==0) return 0;
-    for(i=0,pp=p; pp==p || *(pp-1)!=0; pp=find_item_end(pp)+1, i++);
+  for(i=0,pp=p; pp==p || *(pp-1)!=0; pp=find_item_end(pp)+1, i++);
-    return i;
+  return i;
+}
 /* Returns number of words in string p */
 unsigned int wordnum(char *p)
+{
-    int i; char *pp;
+  int i; char *pp;
-    for(i=0, pp=find_word_start(p); *pp!=0; i++) {
+  for(i=0, pp=find_word_start(p); *pp!=0; i++) {
-      while(!myisspace(*pp) && *pp!=0) pp++;
+    while(!myisspace(*pp) && *pp!=0) pp++;
-      while(myisspace(*pp)) pp++;
+    while(myisspace(*pp)) pp++;
-    }
+  }
-    return i;
+  return i;
+}
 /* This is just to suppress an annoying compiler warning message. */
 unsigned int charnum(char *p)
+{
-    return strlen(p);
+  return strlen(p);
+}
 /* find n-th line in string p */
 char *fnd_line(char *p, int n, char bf[])
+{
-    char *pp;
+  char *pp;
-    int i;
+  int i;
     /*
 for(i=1,pp=p; pp-1!=NULL && *pp!=0 && i<n; pp=strchr(pp,'\n')+1, i++);
     */
-    for(i=1,pp=p; i<n; i++) {
+  for(i=1,pp=p; i<n; i++) {
-        pp=strchr(pp,'\n');
+    pp=strchr(pp,'\n');
-        if (!pp++) {
+    if (!pp++) {
-          fnd_position=NULL; fnd_nextpos=""; *bf=0; return bf;
+      fnd_position=NULL; fnd_nextpos=""; *bf=0; return bf;
-        }
+    }
+  }
-    fnd_position=pp;
+  fnd_position=pp;
-    for(i=0; *(pp+i)!=0 && *(pp+i)!='\n'; i++) *(bf+i)=*(pp+i);
+  for(i=0; *(pp+i)!=0 && *(pp+i)!='\n'; i++) *(bf+i)=*(pp+i);
-    *(bf+i)=0;
+  *(bf+i)=0;
-    if(pp[i]=='\n') i++;
+  if(pp[i]=='\n') i++;
-    fnd_nextpos=pp+i;
+  fnd_nextpos=pp+i;
-    return bf;
+  return bf;
+}
 /* find n-th item in list p, comma separated */
 char *fnd_item(char *p, int n, char bf[])
+{
-    char *pp, *pe;
+  char *pp, *pe;
-    int i;
+  int i;
-    for(i=1,pp=p; i<n && (pp==p || *(pp-1)!=0); pp=find_item_end(pp)+1, i++);
+  for(i=1,pp=p; i<n && (pp==p || *(pp-1)!=0); pp=find_item_end(pp)+1, i++);
-    fnd_position=pp; if(pp>p && *(pp-1)==0) {
+  fnd_position=pp; if(pp>p && *(pp-1)==0) {
-      fnd_position=NULL; *bf=0; return bf;
+    fnd_position=NULL; *bf=0; return bf;
-    }
+  }
-    pp=find_word_start(pp); pe=find_item_end(pp);
+  pp=find_word_start(pp); pe=find_item_end(pp);
-    if(*pe) fnd_nextpos=pe+1; else fnd_nextpos=pe;
+  if(*pe) fnd_nextpos=pe+1; else fnd_nextpos=pe;
-    while(pe>pp && myisspace(*(pe-1))) pe--;
+  while(pe>pp && myisspace(*(pe-1))) pe--;
-    memmove(bf,pp,pe-pp); bf[pe-pp]=0;
+  memmove(bf,pp,pe-pp); bf[pe-pp]=0;
-    return bf;
+  return bf;
+}
 /* find n-th word in string p */
 char *fnd_word(char *p, int n, char bf[])
+{
-    char *pp;
+  char *pp;
-    int i;
+  int i;
-    for(i=1, pp=find_word_start(p); *pp!=0 && i<n ; i++) {
+  for(i=1, pp=find_word_start(p); *pp!=0 && i<n ; i++) {
-      while(!myisspace(*pp) && *pp!=0) pp++;
+    while(!myisspace(*pp) && *pp!=0) pp++;
-      pp=find_word_start(pp);
+    pp=find_word_start(pp);
-    }
+  }
-    if(*pp) fnd_position=pp; else fnd_position=NULL;
+  if(*pp) fnd_position=pp; else fnd_position=NULL;
-    for(i=0; *(pp+i)!=0 && !myisspace(*(pp+i)); i++) *(bf+i)=*(pp+i);
+  for(i=0; *(pp+i)!=0 && !myisspace(*(pp+i)); i++) *(bf+i)=*(pp+i);
-    fnd_nextpos=find_word_start(pp+i);
+  fnd_nextpos=find_word_start(pp+i);
-    *(bf+i)=0;
+  *(bf+i)=0;
-    return bf;
+  return bf;
 }
 /* find n-th char in string p */
 char *fnd_char(char *p, int n, char bf[])
 {
-    int t;
+  int t;
-    t=strlen(p);
+  t=strlen(p);
-    if(n>t || n<1) {*bf=0;fnd_position=NULL; fnd_nextpos="";}
+  if(n>t || n<1) {*bf=0;fnd_position=NULL; fnd_nextpos="";}
-    else {
+  else {
-      *bf=*(p+n-1); *(bf+1)=0;
+    *bf=*(p+n-1); *(bf+1)=0;
-      fnd_position=p+n-1;fnd_nextpos=p+n;
+    fnd_position=p+n-1;fnd_nextpos=p+n;
-    }
+  }
-    return bf;
+  return bf;
+}
 /* Returns 1 if semicolons changed to new lines */
 int rows2lines(char *p)
+{
-    char *pp, *p2;
+  char *pp, *p2;
-    int t;
+  int t;
-    if(strchr(p,'\n')!=NULL) return 0;
+  if(strchr(p,'\n')!=NULL) return 0;
-    for(t=0, pp=p; *pp; pp++) {
+  for(t=0, pp=p; *pp; pp++) {
-      if(*pp=='(') {p2=find_matching(pp+1,')'); if(p2!=NULL) pp=p2; continue;}
+    if(*pp=='(') {p2=find_matching(pp+1,')'); if(p2!=NULL) pp=p2; continue;}
-      if(*pp=='[') {p2=find_matching(pp+1,']'); if(p2!=NULL) pp=p2; continue;}
+    if(*pp=='[') {p2=find_matching(pp+1,']'); if(p2!=NULL) pp=p2; continue;}
-      if(*pp=='{') {p2=find_matching(pp+1,'}'); if(p2!=NULL) pp=p2; continue;}
+    if(*pp=='{') {p2=find_matching(pp+1,'}'); if(p2!=NULL) pp=p2; continue;}
-      if(*pp==';') {*pp='\n'; t++; continue;}
+    if(*pp==';') {*pp='\n'; t++; continue;}
-      if(*pp=='&' && myisalpha(*(pp+1))) {
+    if(*pp=='&' && myisalpha(*(pp+1))) {
-          for(p2=pp+1; myisalpha(*p2) && p2-pp<14; p2++);
+      for(p2=pp+1; myisalpha(*p2) && p2-pp<14; p2++);
-          pp=p2; continue;
-      }
-      if(*pp=='&' && *(pp+1)=='#') {
-          for(p2=pp+2; myisdigit(*p2) && p2-pp<6; p2++);
-          pp=p2; continue;
+      pp=p2; continue;
-      }
+    }
+    if(*pp=='&' && *(pp+1)=='#') {
+      for(p2=pp+2; myisdigit(*p2) && p2-pp<6; p2++);
+      pp=p2; continue;
+    }
+  }
-    return t;
+  return t;
+}
 void lines2rows(char *p)
 {
-    char *pp;
+  char *pp;
-    strip_trailing_spaces(p);
+  strip_trailing_spaces(p);
-    for(pp=strchr(find_word_start(p),'\n'); pp!=NULL; pp=strchr(pp+1,'\n'))
+  for(pp=strchr(find_word_start(p),'\n'); pp!=NULL; pp=strchr(pp+1,'\n'))
-      *pp=';';
+    *pp=';';
+}
 unsigned int rownum(char *p)
+{
-    char buf[MAX_LINELEN+1];
+  char buf[MAX_LINELEN+1];
-    snprintf(buf,sizeof(buf),"%s",p);
+  snprintf(buf,sizeof(buf),"%s",p);
-    rows2lines(buf);
+  rows2lines(buf);
-    return linenum(buf);
+  return linenum(buf);
+}
 /* find n-th row in a matrix p */
 char *fnd_row(char *p, int n, char bf[])
 {
-    rows2lines(p); return fnd_line(p,n,bf);
+  rows2lines(p); return fnd_line(p,n,bf);
 }
 /* strstr but may have embedded zeros.
  * Returns memory end if not found.
  * Supposes memory ends with 0.
  */
 char *memstr(char *s1, char *s2, int len)
+{
-    char *p, *pp;
+  char *p, *pp;
-    pp=s1;
+  pp=s1;
-    for(p=s1; p<s1+len; p=pp) {
+  for(p=s1; p<s1+len; p=pp) {
-      pp=strstr(p,s2); if(pp!=NULL) break;
+    pp=strstr(p,s2); if(pp!=NULL) break;
-      pp=p+strlen(p);
+    pp=p+strlen(p);
-      while(pp<s1+len && *pp==0) pp++;
+    while(pp<s1+len && *pp==0) pp++;
-    }
+  }
-    return pp;
+  return pp;
+}
 /* Check whether parentheses are balanced in a given string.
  * Returns 0 if OK.
  */
 /* style=0: simple check. style<>0: strong check. */
 int check_parentheses(char *p, int style)
 {
-    int i,j,k;
+  int i,j,k;
-    j=strlen(p);
+  j=strlen(p);
-    if(j>=MAX_LINELEN) return 65535;
+  if(j>=MAX_LINELEN) return 65535;
-    if(style!=0) {
+  if(style!=0) {
-      char buf[MAX_LINELEN+1];
+    char buf[MAX_LINELEN+1];
-      char *pp, *pe, c;
+    char *pp, *pe, c;
-      for(pp=p;pp<p+j;pp++) {
+    for(pp=p;pp<p+j;pp++) {
-          switch (*pp) {
+      switch (*pp) {
-            case ')':
+        case ')':
-            case ']':
+        case ']':
-            case '}': return -1;
+        case '}': return -1;
-            case '(': c=')'; goto find;
+        case '(': c=')'; goto find;
-            case '[': c=']'; goto find;
+        case '[': c=']'; goto find;
-            case '{': c='}';
+        case '{': c='}';
-            find: {
+        find: {
-                pe=find_matching(pp+1,c);
+          pe=find_matching(pp+1,c);
-                if(pe==NULL) return 1;
+          if(pe==NULL) return 1;
-                memcpy(buf,pp+1,pe-pp-1);
+          memcpy(buf,pp+1,pe-pp-1);
-                buf[pe-pp-1]=0;
+          buf[pe-pp-1]=0;
-                if((k=check_parentheses(buf,1))!=0) return k;
+          if((k=check_parentheses(buf,1))!=0) return k;
-                else pp=pe;
+          else pp=pe;
-            }
+        }
-            default: break;
+        default: break;
-          }
+      }
-      }
+    }
-      return 0;
+    return 0;
-    }
+  }
-    for(i=k=0;i<j && k>=0;i++) {
+  for(i=k=0;i<j && k>=0;i++) {
-      if(*(p+i)=='(') k++;
+    if(*(p+i)=='(') k++;
-      if(*(p+i)==')') k--;
+    if(*(p+i)==')') k--;
-    }
+  }
-    return k;
+  return k;
+}
 /* Strip enclosing pairs of parentheses */
 void strip_enclosing_par(char *p)
 {
-    char *p1;
+  char *p1;
-    partest: strip_trailing_spaces(p);
+  partest: strip_trailing_spaces(p);
-    if(*p=='(') {
+  if(*p=='(') {
-      p1=find_matching(p+1,')');
+    p1=find_matching(p+1,')');
-      if(p1 && *(p1+1)==0) {
+    if(p1 && *(p1+1)==0) {
-          *p1=0; ovlstrcpy(p,find_word_start(p+1));
+      *p1=0; ovlstrcpy(p,find_word_start(p+1));
-          goto partest;
+      goto partest;
-      }
+    }
-    }
+  }
-    if(*p=='[') {
+  if(*p=='[') {
-      p1=find_matching(p+1,']');
+    p1=find_matching(p+1,']');
-      if(p1 && *(p1+1)==0) {
+    if(p1 && *(p1+1)==0) {
-          *p1=0; ovlstrcpy(p,find_word_start(p+1));
+      *p1=0; ovlstrcpy(p,find_word_start(p+1));
-          goto partest;
+      goto partest;
-      }
+    }
+  }
-    if(*p=='{') {
+  if(*p=='{') {
-      p1=find_matching(p+1,'}');
+    p1=find_matching(p+1,'}');
-      if(p1 && *(p1+1)==0) {
+    if(p1 && *(p1+1)==0) {
-          *p1=0; ovlstrcpy(p,find_word_start(p+1));
+      *p1=0; ovlstrcpy(p,find_word_start(p+1));
-          goto partest;
+      goto partest;
-      }
+    }
+  }
 }
 /* change all spaces into ' ', and collapse multiple occurences */
 void singlespace(char *p)
+{
-    char *pp, *pt, *p2;
+  char *pp, *pt, *p2;
-    for(pp=pt=p;*pp;pp++) {
+  for(pp=pt=p;*pp;pp++) {
-      if(!myisspace(*pp)) {*pt++=*pp; continue; }
+    if(!myisspace(*pp)) {*pt++=*pp; continue; }
-      *pt++=' ';
+    *pt++=' ';
-      for(p2=pp+1;myisspace(*p2);p2++){};
+    for(p2=pp+1;myisspace(*p2);p2++){};
-      pp=--p2;
+    pp=--p2;
-    }
+  }
-    *pt=0;
+  *pt=0;
+}
 /* collapses all space characters in string. */
 void nospace(char *p)
 {
-    char *pp, *pt;
+  char *pp, *pt;
-    for(pp=pt=p;*pp;pp++) if(!myismspace(*pp)) *pt++=*pp;
+  for(pp=pt=p;*pp;pp++) if(!myismspace(*pp)) *pt++=*pp;
-    *pt=0;
+  *pt=0;
 }
 void _spaces2_(char *p, char c)
 {
-    char *pp; int n;
+  char *pp; int n;
-    singlespace(p);
+  singlespace(p);
-    n=strlen(p); if(*p==' ') {memmove(p,p+1,n);n--;}
+  n=strlen(p); if(*p==' ') {memmove(p,p+1,n);n--;}
-    if(n==0) return;
+  if(n==0) return;
-    if(p[n-1]==' ') p[n-1]=0;
+  if(p[n-1]==' ') p[n-1]=0;
-    for(pp=strchr(p,' '); pp; pp=strchr(pp,' ')) *pp++=c;
+  for(pp=strchr(p,' '); pp; pp=strchr(pp,' ')) *pp++=c;
 }
 /* change words to items */
 void words2items(char *p)
+{
-{   _spaces2_(p,','); }
+  _spaces2_(p,',');
+}
 /* change words to lines */
 void words2lines(char *p)
+{
-{   _spaces2_(p,'\n'); }
+  _spaces2_(p,'\n');
+}
 /* change lines to items */
 void lines2items(char *p)
 {
-    char *pp;
+  char *pp;
-    for(pp=strchr(p,'\n'); pp; pp=strchr(pp,'\n')) *pp++=',';
+  for(pp=strchr(p,'\n'); pp; pp=strchr(pp,'\n')) *pp++=',';
+}
 /* change lines to words */
 void lines2words(char *p)
+{
-    char *pp;
+  char *pp;
-    for(pp=strchr(p,'\n'); pp; pp=strchr(pp,'\n')) *pp++=' ';
+  for(pp=strchr(p,'\n'); pp; pp=strchr(pp,'\n')) *pp++=' ';
+}
 /* change items to words */
 void items2words(char *p)
+{
-    char *pp;
+  char *pp;
-    for(pp=strparstr(p,",");*pp;pp=strparstr(pp+1,",")) *pp=' ';
+  for(pp=strparstr(p,",");*pp;pp=strparstr(pp+1,",")) *pp=' ';
+}
 /* change items to lines */
 void items2lines(char *p)
+{
-    char *pp;
+  char *pp;
-    for(pp=strparstr(p,",");*pp;pp=strparstr(pp+1,",")) *pp='\n';
+  for(pp=strparstr(p,",");*pp;pp=strparstr(pp+1,",")) *pp='\n';
+}
 #pragma GCC diagnostic push
 #pragma GCC diagnostic ignored "-Winvalid-source-encoding"
 char *acctab="çéèêëúùûüáàâäãóòôöõíìïîñýÿÇÉÈÊËÚÙÛÜÁÀÂÃÄÓÒÔÖÕÍÌÏÎÑÝ",
      *deatab="ceeeeuuuuaaaaaoooooiiiinyyCEEEEUUUUAAAAAOOOOOIIIINY";
 /* fold accented letters to unaccented */
 void deaccent(char *p)
 {
-    char *sp;
+  char *sp;
-    char *v;
+  char *v;
-    for(sp=p;*sp;sp++) {
+  for(sp=p;*sp;sp++) {
-      if(*sp<0 && (v=strchr(acctab,*sp))!=NULL)
+    if(*sp<0 && (v=strchr(acctab,*sp))!=NULL)
-        *sp=*(deatab+(v-acctab));
+      *sp=*(deatab+(v-acctab));
-    }
+  }
+}
 char *reaccents="'`\"^~";
 char *reaccentl="aeiouycnAEIOUYCN";
 char *reaccentab="\
 ÁÀÄÂÃÉÈËÊEÍÌÏÎIÓÒÖÔÕÚÙÜÛUÝYYYYCCCCÇNNNNÑ";
 #pragma GCC diagnostic pop
 /* compose accent using symbol keys */
 void reaccent(char *p)
+{
-    char *sp, *ap, c;
+  char *sp, *ap, c;
-    int i, k;
+  int i, k;
-    if(*p==0) return;
+  if(*p==0) return;
-    for(sp=p+1; *sp; sp++) {
+  for(sp=p+1; *sp; sp++) {
-      ap=strchr(reaccents,*sp); if(ap==NULL) continue;
+    ap=strchr(reaccents,*sp); if(ap==NULL) continue;
-      i=ap-reaccents;
+    i=ap-reaccents;
-      sp--; ap=strchr(reaccentl,*sp); if(ap==NULL) {sp++; continue;}
+    sp--; ap=strchr(reaccentl,*sp); if(ap==NULL) {sp++; continue;}
-      k=ap-reaccentl;
+    k=ap-reaccentl;
-      c=reaccentab[k*strlen(reaccents)+i];
+    c=reaccentab[k*strlen(reaccents)+i];
-      if(c!=*sp) {*sp=c; ovlstrcpy(sp+1,sp+2);}
+    if(c!=*sp) {*sp=c; ovlstrcpy(sp+1,sp+2);}
-      else sp++;
+    else sp++;
-    }
+  }
+}
 /* modify a string. Bufferlen must be at least MAX_LINELEN */
 void string_modify1(char *start, char *bad_beg, char *bad_end, char *good,...)
+{
-    char buf[MAX_LINELEN+1];
+  char buf[MAX_LINELEN+1];
-    int ln, le;
+  int ln, le;
-    va_list vp;
+  va_list vp;
-    va_start(vp,good);
+  va_start(vp,good);
-    vsnprintf(buf,sizeof(buf),good,vp); va_end(vp);
+  vsnprintf(buf,sizeof(buf),good,vp); va_end(vp);
-    ln=strlen(buf); le=strlen(bad_end);
+  ln=strlen(buf); le=strlen(bad_end);
-    if(ln+le+(bad_beg-start)>=MAX_LINELEN) {
+  if(ln+le+(bad_beg-start)>=MAX_LINELEN) {
-      error("string_too_long"); return;
+    error("string_too_long"); return;
-    }
+  }
-    if(ln!=bad_end-bad_beg) memmove(bad_beg+ln,bad_end,le+1);
+  if(ln!=bad_end-bad_beg) memmove(bad_beg+ln,bad_end,le+1);
-    memmove(bad_beg,buf,ln);
+  memmove(bad_beg,buf,ln);
+}
 /*  modify a string. Bufferlen must be at least MAX_LINELEN */
 void string_modify3(char *start, char *bad_beg, char *bad_end, char *good,...)
+{
-    char buf[MAX_LINELEN+1];
+  char buf[MAX_LINELEN+1];
-    va_list vp;
+  va_list vp;
-    va_start(vp,good);
+  va_start(vp,good);
-    vsnprintf(buf,sizeof(buf),good,vp); va_end(vp);
+  vsnprintf(buf,sizeof(buf),good,vp); va_end(vp);
-    if(strlen(start)-(bad_end-bad_beg)+strlen(buf)>=MAX_LINELEN)
+  if(strlen(start)-(bad_end-bad_beg)+strlen(buf)>=MAX_LINELEN)
-      return; /* this is an error situation. */
+    return; /* this is an error situation. */
-    strcat(buf,bad_end);
+  strcat(buf,bad_end);
-    ovlstrcpy(bad_beg,buf);
+  ovlstrcpy(bad_beg,buf);
 }
 /* returns number of bytes written */
 int catfile(FILE *outf, char *fn,...)
 {
-    char buf[4096];
+  char buf[4096];
-    va_list vp;
+  va_list vp;
-    int l,tot,fd;
+  int l,tot,fd;
-    tot=0;
+  tot=0;
-    va_start(vp,fn);
+  va_start(vp,fn);
-    vsnprintf(buf,sizeof(buf),fn,vp); va_end(vp);
+  vsnprintf(buf,sizeof(buf),fn,vp); va_end(vp);
-    fd=open(buf,O_RDONLY); if(fd==-1) return 0;
+  fd=open(buf,O_RDONLY); if(fd==-1) return 0;
-    for(l=read(fd,buf,4096);l>0 && l<=4096; l=read(fd,buf,4096)) {
+  for(l=read(fd,buf,4096);l>0 && l<=4096; l=read(fd,buf,4096)) {
-      fwrite(buf,1,l,outf); tot+=l;
+    fwrite(buf,1,l,outf); tot+=l;
-    }
+  }
-    close(fd);
+  close(fd);
-    return tot;
+  return tot;
+}
 /* returns -1 if error */
 long int filelength(char *fn,...)
 {
-    char buf[MAX_FNAME+1];
+  char buf[MAX_FNAME+1];
-    va_list vp;
+  va_list vp;
-    struct stat st;
+  struct stat st;
-    int l;
+  int l;
-    va_start(vp,fn);
+  va_start(vp,fn);
-    vsnprintf(buf,sizeof(buf),fn,vp); va_end(vp);
+  vsnprintf(buf,sizeof(buf),fn,vp); va_end(vp);
-    l=stat(buf,&st); if(l) return -1;
+  l=stat(buf,&st); if(l) return -1;
-    return st.st_size;
+  return st.st_size;
+}
 char *parend(char *p)
+{
-    char *pp; int t;
+  char *pp; int t;
-    t=0; for(pp=p;*pp;pp++) {
+  t=0; for(pp=p;*pp;pp++) {
-      if(*pp=='(') t++;
+    if(*pp=='(') t++;
-      if(*pp==')') {t--; if(t==0) return pp; if(t<0) return NULL;}
+    if(*pp==')') {t--; if(t==0) return pp; if(t<0) return NULL;}
-    }
+  }
-    return NULL;
+  return NULL;
+}
 char *bufprep(char *p)
+{
 /*  singlespace(p); strip_trailing_spaces(p); return find_word_start(p); */
-    nospace(p); return p;
+  nospace(p); return p;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Lib/liblines.c – Rev 12258 → 12260