Return to protocol.c CVS log

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

Annotation of researchv9/jtools/src/pads/x11/protocol.c, revision 1.1

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

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