Return to padrcv.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pads / host

Annotation of researchv9/jtools/src/pads/host/padrcv.c, revision 1.1.1.1

1.1       root        1: #include <pads.pri>
                      2: SRCFILE("padrcv.c")
                      3: 
                      4: void PadRcv::invalidate()
                      5: {
                      6:        static short uniq;
                      7: 
                      8:        magic = 0;
                      9:        oid = ++uniq;
                     10: }
                     11:        
                     12: #define MAGIC (('P'<<8)|'R')
                     13: PadRcv::PadRcv()
                     14: {
                     15:        invalidate();
                     16:        magic = MAGIC;
                     17: }
                     18: 
                     19: int PadRcv::isvalid()          { return magic == MAGIC; }
                     20: 
                     21: PadRcv::~PadRcv()              { invalidate(); }
                     22: 
                     23: char *PadRcv::help()
                     24: {
                     25:        trace("%d.help()", this);
                     26:        return "Sorry - no help. Complain to application programmer.";
                     27: }
                     28: 
                     29: void MissingVirtual(char *s, char *f)
                     30: {
                     31:        char t[128];
                     32:        trace("MissingVirtual(%s,%s)", s, f);
                     33:        sprintf(t, "%s object does not define %s()", s, f);
                     34:        PadsWarn(t);
                     35: }
                     36: 
                     37: char *PadRcv::kbd(char*s)      { return "no kbd() function"; }
                     38: 
                     39: void PadRcv::numeric(long n)   { MissingVirtual("NumericRange()", "numeric"); }
                     40: 
                     41: void PadRcv::userclose()               { MissingVirtual("USERCLOSE", "userclose"); }
                     42: 
                     43: void PadRcv::usercut()         { MissingVirtual("USERCUT", "usercut"); }
                     44: 
                     45: void PadRcv::cycle()           { MissingVirtual("alarm()", "cycle"); }
                     46: 
                     47: void PadRcv::linereq(long, Attrib) { MissingVirtual("lines()", "linereq"); }
                     48: 
                     49: int PadRcv::accept(Action a)   { trace("%d.accept(%d)", this, a);  return 0;}
                     50: 
                     51: int PadRcv::disc()             { trace("%d.disc()", this); return 0;   }

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