Return to error.c CVS log

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

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

1.1     ! root        1: #include "String.h"
        !             2: 
        !             3: 
        !             4: void
        !             5: String::error(int i, char *p) _const
        !             6: {
        !             7:        if ( handler )
        !             8:                (*handler)(i, p);
        !             9:        else {
        !            10:                cerr << (p?p:"error in String function ") << i;
        !            11:                abort();
        !            12:        }
        !            13: }
        !            14: 
        !            15: GPT
        !            16: String::sethandler(GPT h)
        !            17: {
        !            18:        GPT     rslt = handler;
        !            19:        handler = h;
        !            20:        return rslt;
        !            21: }
        !            22: 
        !            23: void
        !            24: SubString::error(int i, char *p)
        !            25: {
        !            26:        if ( handler )
        !            27:                (*handler)(i, p);
        !            28:        else {
        !            29:                cerr << (p?p:"error in SubString function ") << i;
        !            30:                abort();
        !            31:        }
        !            32: }
        !            33: 
        !            34: GPT
        !            35: SubString::sethandler(GPT h)
        !            36: {
        !            37:        GPT     rslt = handler;
        !            38:        handler = h;
        !            39:        return rslt;
        !            40: }
        !            41: 
        !            42: void
        !            43: Subchar::error(int i, char *p)
        !            44: {
        !            45:        if ( handler )
        !            46:                (*handler)(i, p);
        !            47:        else {
        !            48:                cerr << (p?p:"error in Subchar function ") << i;
        !            49:                abort();
        !            50:        }
        !            51: }
        !            52: 
        !            53: GPT
        !            54: Subchar::sethandler(GPT h)
        !            55: {
        !            56:        GPT     rslt = handler;
        !            57:        handler = h;
        !            58:        return rslt;
        !            59: }

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