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

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.