Return to protocol.c CVS log

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

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

1.1       root        1: #include <pads.pri>
                      2: 
                      3: static void Proto(p) { PutRemote(p); }
                      4: 
                      5: static void CheckProto( p ) { if( GetRemote() != p ) ProtoErr(); }
                      6: 
                      7: static long ShiftIn( bytes )
                      8: register bytes;
                      9: {
                     10:        register long shifter = 0;
                     11: 
                     12:        CheckProto( bytes );
                     13:        while( bytes-- ) shifter = (shifter<<8) + (GetRemote()&0xFF);
                     14:        return shifter;
                     15: }
                     16: 
                     17: long  RcvLong()  { return (long)  ShiftIn( P_LONG  ); }
                     18: short RcvShort() { return (short) ShiftIn( P_SHORT ); }
                     19: unsigned char RcvUChar() { return (unsigned char) ShiftIn( P_UCHAR ); }
                     20: 
                     21: static void ShiftOut( bytes, shifter )
                     22: register bytes;
                     23: register long shifter;
                     24: {
                     25:        Proto( bytes );
                     26:        do { PutRemote( (char)(shifter>>( (--bytes)*8 )) ); } while( bytes );
                     27: }
                     28: 
                     29: void SendLong(x)  long  x; { ShiftOut( P_LONG,  (long) x ); }
                     30: void SendShort(x) short x; { ShiftOut( P_SHORT, (long) x ); }
                     31: void SendUChar(x) unsigned char x; { ShiftOut( P_UCHAR, (long) x ); }
                     32: 
                     33: char *RcvString( s0 )
                     34: char *s0;
                     35: {
                     36:        register char *s = s0;
                     37:        register unsigned char len;
                     38: 
                     39:        CheckProto( P_STRING );
                     40:        len = RcvUChar();
                     41:        if( !s0 ) s = s0 = new char [len+1];
                     42:        while( len-->0 ) *s++ = GetRemote();
                     43:        *s = '\0';
                     44:        return s0;
                     45: }
                     46: 
                     47: void SendString(s)
                     48: register char *s;
                     49: {
                     50:        int len;
                     51: 
                     52:        Proto( P_STRING );
                     53:        len =  strlen(s);
                     54:        if( len > 255 ) len = 255;
                     55:        SendUChar( len );
                     56:        while( len-- ) PutRemote(*s++); 
                     57: }

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