Return to search.c CVS log

Up to [Research Unix] / researchv10no / cmd / lfactor

Annotation of researchv10no/cmd/lfactor/search.c, revision 1.1.1.1

1.1       root        1: int
                      2: search(a, nn, es, fc, arg, j1, j2)
                      3: char *a, *arg, **j1, **j2;
                      4: unsigned nn;
                      5: int es;
                      6: int (*fc)();
                      7: {
                      8:        int c;
                      9:        char *lp, *ap;
                     10:        unsigned n;
                     11: 
                     12:        n = nn;
                     13:        lp = a;
                     14:        ap = a + n*es;
                     15: loop:
                     16:        if(n == 0){
                     17:                *j1 = lp;
                     18:                *j2 = ap;
                     19:                return(-1);
                     20:        }
                     21:        n = ap - lp;
                     22:        n = es * (n/(2*es));
                     23:        if((c=(*fc)(arg,lp+n)) == 0){
                     24:                lp = lp + n;
                     25:                ap = lp + es;
                     26:                goto gotit;
                     27:        }
                     28:        if(c<0){
                     29:                ap = lp + n;
                     30:                goto loop;
                     31:        }
                     32:        if(c>0){
                     33:                lp = lp + n;
                     34:                goto loop;
                     35:        }
                     36: gotit:
                     37:        while(1){
                     38:                if(lp==a) break;
                     39:                if((*fc)(arg,lp-es) ==0){
                     40:                        lp = lp - es;
                     41:                }
                     42:                else
                     43:                        break;
                     44:        }
                     45:        while(1){
                     46:                if(ap==a+nn*es) break;
                     47:                if((*fc)(arg,ap) == 0){
                     48:                        ap = ap + es;
                     49:                }
                     50:                else
                     51:                        break;
                     52:        }
                     53:        *j1 = lp;
                     54:        *j2 = ap;
                     55:        return(1);
                     56: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.