Return to trace7.c CVS log

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

Annotation of researchv10no/cmd/trace/trace7.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "trace.h"
        !             3: #include "trace.d"
        !             4: 
        !             5: struct Swiffle *slist, *slast, *flast;
        !             6: int nswiff = 0, fswiff = 0;
        !             7: 
        !             8: struct Swiffle *
        !             9: unswiffle(avoid)
        !            10:        struct STATE *avoid;
        !            11: {
        !            12:        register struct Swiffle *try;
        !            13:        register int i;
        !            14:        struct Swiffle *result = (struct Swiffle *) NULL;
        !            15: 
        !            16:        for (i = nswiff, try = slist; i > 0; i--, try = try->next)
        !            17:                if (try->st != avoid)
        !            18:                {       result = try;
        !            19:                        getput(try, i);
        !            20:                        break;
        !            21:                }
        !            22: 
        !            23:        return result;
        !            24: }
        !            25: 
        !            26: swiffle(this, that)
        !            27:        struct STATE *this;
        !            28:        struct VISIT *that;
        !            29: {
        !            30:        struct Swiffle *getswiff(), *try;
        !            31: 
        !            32:        try = getswiff();
        !            33:        try->st = this;
        !            34:        try->vi = that;
        !            35: 
        !            36:        if (nswiff++ == 0)
        !            37:                slist = try;
        !            38:        else
        !            39:        {       slast->next = try;
        !            40:                try->last = slast;
        !            41:        }
        !            42:        slast = try;
        !            43: }
        !            44: 
        !            45: getput(try, n)
        !            46:        struct Swiffle *try;
        !            47: {
        !            48: /* unlink from slist: */
        !            49:        if (try == slist)
        !            50:                slist = try->next;
        !            51:        else
        !            52:                try->last->next = try->next;
        !            53: 
        !            54:        if (n > 1)
        !            55:                try->next->last = try->last;
        !            56: 
        !            57:        if (try == slast)
        !            58:        {       if (try == slist)
        !            59:                        slast = (struct Swiffle *) NULL;
        !            60:                else
        !            61:                        slast = try->last;
        !            62:        }
        !            63:        nswiff--;
        !            64: 
        !            65: /* relink in flist: */
        !            66: 
        !            67:        try->next = (struct Swiffle *) NULL;
        !            68: 
        !            69:        if (fswiff++ == 0)
        !            70:                try->last = (struct Swiffle *) NULL;
        !            71:        else
        !            72:        {       flast->next = try;
        !            73:                try->last = flast;
        !            74:        }
        !            75:        flast = try;
        !            76: }
        !            77: 
        !            78: struct Swiffle *
        !            79: getswiff()
        !            80: {      struct Swiffle *try;
        !            81:        char *Smalloc();
        !            82: 
        !            83:        if (fswiff == 0)
        !            84:                try = (struct Swiffle *) Smalloc(sizeof(struct Swiffle));
        !            85:        else
        !            86:        {       fswiff--;
        !            87:                try = flast;
        !            88:                if ((flast = try->last) != NULL)
        !            89:                        flast->next = (struct Swiffle *) NULL;
        !            90:        }
        !            91:        try->next = try->last = (struct Swiffle *) NULL;
        !            92: 
        !            93:        return try;
        !            94: }

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