Return to test3.c CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / libstring

Annotation of researchv10no/cmd/cfront/libstring/test3.c, revision 1.1.1.1

1.1       root        1: /* sort standard input and print unique word count */
                      2: #include "pair.h"
                      3: #include "list.h"
                      4: 
                      5: listdeclare(pairST)
                      6: listoutimplement(pairST)
                      7: pairST_list    sort(pairST_list);
                      8: 
                      9: main()
                     10: {
                     11:        String  s;
                     12:        pairST_list     myList;
                     13:        /* input */
                     14:        while (cin >> s)
                     15:                myList.put(new pair(s,1));
                     16:        myList = sort(myList);
                     17:        /* print result */
                     18:        cout << myList << "\n";
                     19: }
                     20: 
                     21: pairST_list
                     22: sort(pairST_list myList)
                     23: {
                     24:        /* (bubble) sort */
                     25:        int swapFlag;
                     26:        if (myList)
                     27:                do {
                     28:                        swapFlag = FALSE;
                     29:                        pairST_list_iterator    it(myList);
                     30:                        pairST  x;
                     31:                        pairST  y;
                     32:                        while ( it.nextX(x) && it.peekX(y) )
                     33:                                if ( x->word > y->word ) {
                     34:                                        it.remove();
                     35:                                        it.next();
                     36:                                        it.r_insert(x);
                     37:                                        swapFlag = TRUE;
                     38:                                } else if ( x->word == y->word ) {
                     39:                                        it.remove();
                     40:                                        y->count += x->count;
                     41:                                        delete x;
                     42:                                }
                     43:                } while ( swapFlag );
                     44:        return myList;
                     45: }
                     46: 
                     47: 
                     48: ostream&
                     49: operator<<(ostream& oo, pairST p)
                     50: {
                     51:        return oo << "\n" << p->word << "\t" << p->count;
                     52: }

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