Return to cmd6.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / window

Annotation of 43BSD/ucb/window/cmd6.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)cmd6.c     3.13 4/24/85";
        !             3: #endif
        !             4: 
        !             5: /*
        !             6:  * Copyright (c) 1983 Regents of the University of California,
        !             7:  * All rights reserved.  Redistribution permitted subject to
        !             8:  * the terms of the Berkeley Software License Agreement.
        !             9:  */
        !            10: 
        !            11: #include "defs.h"
        !            12: #include "string.h"
        !            13: #include "char.h"
        !            14: 
        !            15: /*
        !            16:  * Debugging commands.
        !            17:  */
        !            18: 
        !            19: c_debug()
        !            20: {
        !            21:        register struct ww *w;
        !            22: 
        !            23:        if (!terse)
        !            24:                wwputs("[m(smap) n(ns) o(os) s(string) v(nvis) w(win)]? ", cmdwin);
        !            25:        wwcurtowin(cmdwin);
        !            26:        while (wwpeekc() < 0)
        !            27:                wwiomux();
        !            28:        if (!terse)
        !            29:                wwputc('\n', cmdwin);
        !            30:        switch (wwgetc()) {
        !            31:        case 'm':
        !            32:                wwdumpsmap();
        !            33:                break;
        !            34:        case 'n':
        !            35:                wwdumpns();
        !            36:                break;
        !            37:        case 'o':
        !            38:                wwdumpos();
        !            39:                break;
        !            40:        case 's':
        !            41:                debug_str();
        !            42:                break;
        !            43:        case 'v':
        !            44:                if ((w = getwin()) != 0)
        !            45:                        wwdumpnvis(w);
        !            46:                break;
        !            47:        case 'w':
        !            48:                if ((w = getwin()) != 0)
        !            49:                        wwdumpwin(w);
        !            50:                break;
        !            51:        default:
        !            52:                wwbell();
        !            53:        }
        !            54: }
        !            55: 
        !            56: #ifdef STR_DEBUG
        !            57: debug_str()
        !            58: {
        !            59:        register struct ww *w;
        !            60:        struct string *s;
        !            61: 
        !            62:        if ((w = openiwin(wwnrow - 3, "Allocated Strings")) == 0) {
        !            63:                error("Can't open string window: %s.", wwerror());
        !            64:                return;
        !            65:        }
        !            66:        for (s = str_head.s_forw; s != &str_head; s = s->s_forw) {
        !            67:                if (more(w, 0) == 2)
        !            68:                        goto out;
        !            69:                wwprintf(w, "(0x%x)\t\"%s\"\n", s->s_data, s->s_data);
        !            70:        }
        !            71:        waitnl(w);
        !            72: out:
        !            73:        closeiwin(w);
        !            74: }
        !            75: #else
        !            76: debug_str()
        !            77: {
        !            78:        error("No string debugging.");
        !            79: }
        !            80: #endif

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