Return to x_erstr.clu CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib

Annotation of 43BSD/contrib/X/CLUlib/x_erstr.clu, revision 1.1

1.1     ! root        1: % Copyright    Barbara Liskov    1985
        !             2: 
        !             3: msgs = sequence[string]$["bad request code",
        !             4:                         "int parameter out of range",
        !             5:                         "parameter not a Window",
        !             6:                         "parameter not a Pixmap",
        !             7:                         "parameter not a Bitmap",
        !             8:                         "parameter not a Cursor",
        !             9:                         "parameter not a Font",
        !            10:                         "parameter mismatch",
        !            11:                         "Pixmap shape invalid for tiling",
        !            12:                         "mouse/button already grabbed",
        !            13:                         "access control violation",
        !            14:                         "insufficient resources",
        !            15:                         "no such color"]
        !            16: 
        !            17: x_erstr = proc (err, req, code, func, wid: int) returns (string)
        !            18:     return(msgs[err] || ": request code " || int$unparse(code))
        !            19:     end x_erstr

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