Subversion Repositories wimsdev

Rev

Rev 11104 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11104 Rev 12244
Line 28... Line 28...
28 
 * return instead of abort.
 28 
 * return instead of abort.
29 
 */
 29 
 */
30 
/* TODO: quoted string. */
 30 
/* TODO: quoted string. */
31 
int compare(char *p, int numeric, int lvl)
 31 
int compare(char *p, int numeric, int lvl)
32 
{
 32 
{
33 
    char *p1, *p2, *pp, *pt;
 33 
  char *p1, *p2, *pp, *pt;
34 
    char *r1, *r2;
 34 
  char *r1, *r2;
35 
    int i, l, k, r, neg, gotl;
 35 
  int i, l, k, r, neg, gotl;
36 
 
 36 
 
37 
/* Check global pairs of parentheses */
 37 
/* Check global pairs of parentheses */
38 
    p2=strip_trailing_spaces(p);
 38 
  p2=strip_trailing_spaces(p);
39 
    p1=find_word_start(p);
 39 
  p1=find_word_start(p);
40 
    if(lvl==0 && p2-p1>=MAX_LINELEN-1) module_error("parm_too_long");
 40 
  if(lvl==0 && p2-p1>=MAX_LINELEN-1) module_error("parm_too_long");
41 
    while(*p1=='(' && *p2==')' && p2==parend(p1)) {
 41 
  while(*p1=='(' && *p2==')' && p2==parend(p1)) {
42 
     lvl=0; p1=find_word_start(++p1);
 42 
    lvl=0; p1=find_word_start(++p1);
43 
     do p2--; while(p2>=p1 && myisspace(*p2));
 43 
    do p2--; while(p2>=p1 && myisspace(*p2));
44 
     p2[1]=0;
 44 
    p2[1]=0;
- 
 
 45 
  }
- 
 
 46 
  gotl=100; r1=r2=p1; r=-1; neg=0;
- 
 
 47 
  for(pp=p1; *pp; pp++) {
- 
 
 48 
    if(*pp==')') {badpar: module_error("unmatched_parentheses"); return -1;}
- 
 
 49 
    if(*pp=='(') {
- 
 
 50 
      pp=parend(pp); if(pp==NULL) goto badpar;
- 
 
 51 
      continue;
45 
    }
 52 
    }
46 
    gotl=100; r1=r2=p1; r=-1; neg=0;
 - 
 
47 
    for(pp=p1; *pp; pp++) {
 - 
 
48 
     if(*pp==')') {badpar: module_error("unmatched_parentheses"); return -1;}
 - 
 
49 
     if(*pp=='(') {
 - 
 
50 
         pp=parend(pp); if(pp==NULL) goto badpar;
 - 
 
51 
         continue;
 - 
 
52 
     }
 - 
 
53 
     if(gotl>3) {
 53 
    if(gotl>3) {
54 
         switch(*pp) {
 54 
      switch(*pp) {
55 
          case '<': {
 55 
        case '<': {
56 
              gotl=3; r1=pp; r2=r1+1; r=102; neg=0;
 56 
          gotl=3; r1=pp; r2=r1+1; r=102; neg=0;
57 
              if(*r2=='=') {r2++; r=103; neg=1;}
 57 
          if(*r2=='=') {r2++; r=103; neg=1;}
58 
              if(*r2=='>') {
 58 
          if(*r2=='>') {
59 
               r2++; neg=1;
 59 
            r2++; neg=1;
60 
               if(numeric) r=101; else r=0;
 60 
            if(numeric) r=101; else r=0;
61 
              }
 - 
 
62 
              break;
 - 
 
63 
          }
 61 
          }
- 
 
 62 
          break;
- 
 
 63 
        }
64 
          case '>': {
 64 
        case '>': {
65 
              gotl=3; r1=pp; r2=r1+1; r=103; neg=0;
 65 
          gotl=3; r1=pp; r2=r1+1; r=103; neg=0;
66 
              if(*r2=='=') {r2++; r=102; neg=1;}
 66 
          if(*r2=='=') {r2++; r=102; neg=1;}
- 
 
 67 
          break;
- 
 
 68 
        }
- 
 
 69 
        case '=': {
- 
 
 70 
          gotl=3; neg=0; r1=pp; r2=r1+1; if(*r2=='=') r2++;
- 
 
 71 
          if(numeric) r=101; else r=0;
67 
              break;
 72 
          break;
- 
 
 73 
        }
- 
 
 74 
        case '!': {
- 
 
 75 
          if(pp[1]=='=') {
- 
 
 76 
            gotl=3; r1=pp; r2=pp+2; neg=1;
- 
 
 77 
            if(numeric) r=101; else r=0;
68 
          }
 78 
          }
69 
          case '=': {
 - 
 
70 
              gotl=3; neg=0; r1=pp; r2=r1+1; if(*r2=='=') r2++;
 - 
 
71 
              if(numeric) r=101; else r=0;
 - 
 
72 
              break;
 79 
          break;
73 
          }
 - 
 
74 
          case '!': {
 - 
 
75 
              if(pp[1]=='=') {
 - 
 
76 
               gotl=3; r1=pp; r2=pp+2; neg=1;
 - 
 
77 
               if(numeric) r=101; else r=0;
 - 
 
78 
              }
 - 
 
79 
              break;
 - 
 
80 
          }
 80 
        }
81 
         }
 81 
      }
82 
         if(r2>p1) {
 82 
      if(r2>p1) {
83 
          if(lvl==2) break;
 83 
        if(lvl==2) break;
84 
          pp=r2-1; continue;
 84 
        pp=r2-1; continue;
85 
         }
 85 
      }
86 
     }
 86 
    }
87 
     if(!myisspace(*pp)) continue;
 87 
    if(!myisspace(*pp)) continue;
88 
     pp=find_word_start(pp);
 88 
    pp=find_word_start(pp);
89 
     if(gotl>3) {
 89 
    if(gotl>3) {
90 
         if(pp[0]=='i' && pp[1]=='s') {k=2; neg=0; goto isnot;}
 90 
      if(pp[0]=='i' && pp[1]=='s') {k=2; neg=0; goto isnot;}
91 
         if(pp[0]=='n' && pp[1]=='o' && pp[2]=='t') {k=3; neg=1; goto isnot;}
 91 
      if(pp[0]=='n' && pp[1]=='o' && pp[2]=='t') {k=3; neg=1; goto isnot;}
92 
         goto rel;
 92 
      goto rel;
93 
         isnot:
 93 
      isnot:
94 
         if(strchr("siwlv",pp[k])==NULL) goto rel;
 94 
      if(strchr("siwlv",pp[k])==NULL) goto rel;
95 
         pt=pp; pp+=k; l=0;
 95 
      pt=pp; pp+=k; l=0;
96 
         for(i=0;i<total_relations;i++) {
 96 
      for(i=0;i<total_relations;i++) {
97 
          l=strlen(relation_type[i]);
 97 
        l=strlen(relation_type[i]);
98 
          if(strncmp(pp, relation_type[i], l)==0 &&
 98 
        if(strncmp(pp, relation_type[i], l)==0 &&
99 
             ((!myisalnum(pp[l]) && pp[l]!='_') || pp[l]==0)) break;
 99 
           ((!myisalnum(pp[l]) && pp[l]!='_') || pp[l]==0)) break;
100 
         }
 100 
        }
101 
         if(i>=total_relations) {pp--; continue;}
 101 
        if(i>=total_relations) {pp--; continue;}
102 
         gotl=3; r=i+1; pp+=l; r1=pt; r2=pp;
 102 
        gotl=3; r=i+1; pp+=l; r1=pt; r2=pp;
103 
         if(lvl==2) break; else {pp--; continue;}
 103 
        if(lvl==2) break; else {pp--; continue;}
104 
     }
 104 
    }
105 
     rel:
 105 
    rel:
106 
     if(*pp!='|' && *pp!='&' && *pp!='a' && *pp!='o')
 106 
    if(*pp!='|' && *pp!='&' && *pp!='a' && *pp!='o')
107 
         {pp--; continue;}
 107 
      {pp--; continue;}
108 
     if(gotl>2 &&
 108 
    if(gotl>2 &&
109 
        ((myisspace(pp[3]) && strncmp(pp,"and",3)==0) ||
 109 
        ((myisspace(pp[3]) && strncmp(pp,"and",3)==0) ||
110 
         (myisspace(pp[2]) && strncmp(pp,"&&",2)==0))) {
 110 
       (myisspace(pp[2]) && strncmp(pp,"&&",2)==0))) {
111 
         gotl=2; r1=pp; pp=r2=find_word_end(r1);
 111 
      gotl=2; r1=pp; pp=r2=find_word_end(r1);
112 
         if(lvl==1) break; else {pp--;continue;}
 112 
      if(lvl==1) break; else {pp--;continue;}
113 
     }
 113 
    }
114 
     if(gotl>1 && myisspace(pp[2]) &&
 114 
    if(gotl>1 && myisspace(pp[2]) &&
115 
        (strncmp(pp,"or",2)==0 || strncmp(pp,"||",2)==0)) {
 115 
      (strncmp(pp,"or",2)==0 || strncmp(pp,"||",2)==0)) {
116 
         gotl=1; r1=pp; r2=pp=r1+2; break;
 116 
      gotl=1; r1=pp; r2=pp=r1+2; break;
117 
     }
 117 
    }
118 
    }
 118 
  }
119 
    if(gotl>20) {
 119 
  if(gotl>20) {
120 
     setvar(error_data_string,"relation not defined");
 120 
    setvar(error_data_string,"relation not defined");
121 
     module_error("comp_syntax"); return -1;
 121 
    module_error("comp_syntax"); return -1;
122 
    }
 122 
  }
123 
 
 123 
 
124 
    switch(gotl) {
 124 
  switch(gotl) {
125 
     case 1: { /* or */
 125 
    case 1: { /* or */
126 
         *r1=0; i=compare(p1,numeric,1); if(i) return i;
 126 
      *r1=0; i=compare(p1,numeric,1);
- 
 
 127 
      if(i) return i;
127 
         else return compare(r2,numeric,0);
 128 
      else return compare(r2,numeric,0);
128 
     }
 129 
    }
129 
     case 2: { /* and */
 130 
    case 2: { /* and */
130 
         *r1=0; i=compare(p1,numeric,2); if(i<=0) return i;
 131 
      *r1=0; i=compare(p1,numeric,2); if(i<=0) return i;
131 
         else return compare(r2,numeric,1);
 132 
      else return compare(r2,numeric,1);
132 
     }
 133 
    }
133 
     case 3: { /* atomic comparison */
 134 
    case 3: { /* atomic comparison */
134 
         if(r<100) { /* textual comparison */
 135 
      if(r<100) { /* textual comparison */
135 
          static char buf1[MAX_LINELEN+1], buf2[MAX_LINELEN+1];
 136 
        static char buf1[MAX_LINELEN+1], buf2[MAX_LINELEN+1];
136 
          while(r1>p1 && myisspace(r1[-1])) r1--;
 137 
        while(r1>p1 && myisspace(r1[-1])) r1--;
137 
          memmove(buf1,p1,r1-p1); buf1[r1-p1]=0;
 138 
        memmove(buf1,p1,r1-p1); buf1[r1-p1]=0;
138 
          r2=find_word_start(r2);
 139 
        r2=find_word_start(r2);
139 
          while(p2>=r2 && myisspace(*p2)) p2--;
 140 
        while(p2>=r2 && myisspace(*p2)) p2--;
140 
          memmove(buf2,r2,p2+1-r2); buf2[p2+1-r2]=0;
 141 
        memmove(buf2,r2,p2+1-r2); buf2[p2+1-r2]=0;
141 
          substitute(buf1); substitute(buf2);
 142 
        substitute(buf1); substitute(buf2);
142 
          switch(r) {
 143 
        switch(r) {
143 
              case 0: { /* equal */
 144 
          case 0: { /* equal */
144 
               if(strcmp(buf1,buf2)==0) return 1^neg; else return neg;
 145 
            if(strcmp(buf1,buf2)==0) return 1^neg; else return neg;
145 
              }
 146 
          }
146 
              case 1: { /* sametext */
 147 
          case 1: { /* sametext */
147 
               deaccent(buf1); deaccent(buf2);
 148 
            deaccent(buf1); deaccent(buf2);
148 
               if(strcasecmp(bufprep(buf1),bufprep(buf2))==0)
 149 
            if(strcasecmp(bufprep(buf1),bufprep(buf2))==0)
149 
                 return 1^neg;
 150 
              return 1^neg;
150 
               else return neg;
 151 
            else return neg;
151 
              }
 152 
          }
152 
              case 2: { /* samecase */
 153 
          case 2: { /* samecase */
153 
               if(strcmp(bufprep(buf1),bufprep(buf2))==0)
 154 
            if(strcmp(bufprep(buf1),bufprep(buf2))==0)
154 
                 return 1^neg;
 155 
              return 1^neg;
155 
               else return neg;
 156 
            else return neg;
156 
              }
 157 
          }
157 
              case 3: { /* in */
 158 
          case 3: { /* in */
158 
               if(strstr(buf2,buf1)!=NULL) return 1^neg; else return neg;
 159 
            if(strstr(buf2,buf1)!=NULL) return 1^neg; else return neg;
159 
              }
 160 
          }
160 
              case 4: { /* wordof */
 161 
          case 4: { /* wordof */
161 
               if(wordchr(buf2,buf1)!=NULL) return 1^neg; else return neg;
 162 
            if(wordchr(buf2,buf1)!=NULL) return 1^neg; else return neg;
162 
              }
 163 
          }
163 
              case 5: { /* itemof */
 164 
          case 5: { /* itemof */
164 
               if(itemchr(buf2,buf1)!=NULL) return 1^neg; else return neg;
 165 
            if(itemchr(buf2,buf1)!=NULL) return 1^neg; else return neg;
165 
              }
 166 
          }
166 
              case 6: { /* lineof */
 167 
          case 6: { /* lineof */
167 
               if(linechr(buf2,buf1)!=NULL) return 1^neg; else return neg;
 168 
            if(linechr(buf2,buf1)!=NULL) return 1^neg; else return neg;
168 
              }
 169 
          }
169 
              case 7:
 170 
          case 7:
170 
              case 8: { /* varof */
 171 
          case 8: { /* varof */
171 
               if(varchr(buf2,buf1)!=NULL) return 1^neg; else return neg;
 172 
            if(varchr(buf2,buf1)!=NULL) return 1^neg; else return neg;
172 
              }
 173 
          }
173 
          }
 174 
        }
174 
         }
 175 
      }
175 
         else { /* numerical comparison */
 176 
      else { /* numerical comparison */
176 
          double d1, d2, sum, diff, prec;
 177 
        double d1, d2, sum, diff, prec;
177 
          *r1=0;
 178 
        *r1=0;
178 
          d1=evalue(p1); d2=evalue(r2);
 179 
        d1=evalue(p1); d2=evalue(r2);
179 
          sum=d1+d2; if(sum<0) sum=-sum;
 180 
        sum=d1+d2; if(sum<0) sum=-sum;
180 
          diff=d1-d2; if(diff<0) diff=-diff;
 181 
        diff=d1-d2; if(diff<0) diff=-diff;
181 
          prec=evalue(getvar("wims_compare_precision"));  /* Move string name to header! */
 182 
        prec=evalue(getvar("wims_compare_precision"));  /* Move string name to header! */
182 
          diff=diff*prec;
 183 
        diff=diff*prec;
183 
          if(prec>0 && prec<1E10) sum=sum+1/prec;
 184 
        if(prec>0 && prec<1E10) sum=sum+1/prec;
184 
          switch(r) {
 185 
        switch(r) {
185 
              case 101: { /* = */
 186 
          case 101: { /* = */
186 
               if(sum>=diff) return 1^neg; else return neg;
 187 
            if(sum>=diff) return 1^neg; else return neg;
187 
              }
 188 
          }
188 
              case 102: { /* < */
 189 
          case 102: { /* < */
189 
               if(d1<d2) return 1^neg; else return neg;
 190 
            if(d1<d2) return 1^neg; else return neg;
190 
              }
 191 
          }
191 
              case 103: { /* > */
 192 
          case 103: { /* > */
192 
               if(d1>d2) return 1^neg; else return neg;
 193 
            if(d1>d2) return 1^neg; else return neg;
193 
              }
 - 
 
194 
              default: break; /* should never occur */
 - 
 
195 
          }
 194 
          }
- 
 
 195 
          default: break; /* should never occur */
196 
         }
 196 
        }
197 
     }
 197 
      }
198 
    }
 198 
    }
- 
 
 199 
  }
199 
    internal_error("compare(): this should never happen.");
 200 
  internal_error("compare(): this should never happen.");
200 
    return -1;
 201 
  return -1;
201 
}
 202 
}
202 
 
 -