Return to test14.c CVS log

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

Annotation of researchv10no/cmd/cfront/libstring/test14.c, revision 1.1

1.1     ! root        1: // list test program.  Sorts standard input, prints with counts
        !             2: #include "pair.h"
        !             3: #include "list.h"
        !             4: 
        !             5: plistdeclare(pair)
        !             6: plistimplement(pair)
        !             7: plistoutimplement(pair)
        !             8: 
        !             9: pairP_list     sort(pairP_list);
        !            10: 
        !            11: main()
        !            12: {
        !            13:        String  s;
        !            14:        pairP_list      myList;
        !            15:        /* input */
        !            16:        while (cin >> s)
        !            17:                myList.put(new pair(s,1));
        !            18:        myList = sort(myList);
        !            19:        /* print result */
        !            20:        operator<<(cout,myList) << "\n"; // work around iostream bug
        !            21:        pair    *p;
        !            22:        while (myList.getX(p))
        !            23:                delete p;
        !            24: }
        !            25: 
        !            26: pairP_list
        !            27: sort(pairP_list aList) // straight insertion
        !            28: {
        !            29:        pairP_list_iterator     unsorted(aList);
        !            30:        if ( unsorted.next() ) {
        !            31:                pair    *p;
        !            32:                while ( unsorted.r_removeX(p) ) {
        !            33:                        pairP_list_iterator     sorted = unsorted;
        !            34:                        pair    **q;  // pointer into sorted part
        !            35:                        while ( sorted.r_nextX(q) && (*q)->word > p->word )
        !            36:                                ;
        !            37:                        if ( (*q)->word < p->word )
        !            38:                                sorted.next();   // back up
        !            39:                        else if ( (*q)->word == p->word ) {
        !            40:                                (*q)->count += p->count;
        !            41:                                delete p;
        !            42:                                continue;
        !            43:                        }
        !            44:                        sorted.r_insert(p);
        !            45:                }
        !            46:        }
        !            47:        return aList;
        !            48: }
        !            49: 
        !            50: ostream&
        !            51: operator<<(ostream& oo, pair *p)
        !            52: {
        !            53:        return oo << "(" << p->word << ", " << p->count << ")\n";
        !            54: }

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