Return to sort.c CVS log

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

Annotation of researchv10no/cmd/ops/sort.c, revision 1.1.1.1

1.1       root        1: 
                      2: typedef struct {
                      3:        int weight;
                      4:        char *string;
                      5: } Object;
                      6: 
                      7: #define Lt(a,b)        ((a).weight < (b).weight)
                      8: 
                      9: #define sort(a,n)      ptsort(a, a+n-1)
                     10: 
                     11: ptsort(l, m)
                     12: Object *l, *m;
                     13: {
                     14:        register Object *i, *j; Object x, t;
                     15:        while (l < m) {
                     16:                i = l; j = m;
                     17:                x = i[(j-i)/2];
                     18:                while (i <= j) {
                     19:                        while (Lt(*i, x)) i++;
                     20:                        while (Lt(x, *j)) j--;
                     21:                        if (i <= j) {
                     22:                                t = *i;
                     23:                                *i++ = *j;
                     24:                                *j-- = t;
                     25:                        }
                     26:                }
                     27:                if (j-l <= m-i) {
                     28:                        ptsort(l, j);
                     29:                        l = i;
                     30:                } else {
                     31:                        ptsort(i, m);
                     32:                        m = j;
                     33:                }
                     34:        }
                     35: }

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