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

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.