Return to CH2server.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / xns / examples / ch

Annotation of 43BSD/contrib/xns/examples/ch/CH2server.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Server for Clearinghouse.
        !             3:  */
        !             4: #include "Clearinghouse2.h"
        !             5: #include <xnscourier/except.h>
        !             6: 
        !             7: extern CourierConnection *_serverConnection;
        !             8: 
        !             9: extern Clearinghouse2_RetrieveAddressesResults Clearinghouse2_RetrieveAddresses();
        !            10: 
        !            11: server_Clearinghouse2_RetrieveAddresses(_buf)
        !            12:        register Unspecified *_buf;
        !            13: {
        !            14:        register Unspecified *_bp = _buf;
        !            15:        register LongCardinal _n;
        !            16:        Clearinghouse2_RetrieveAddressesResults _Results;
        !            17: 
        !            18:        _Results = Clearinghouse2_RetrieveAddresses(_serverConnection, 0);
        !            19:        _n = sizeof_Clearinghouse2_RetrieveAddressesResults(&_Results);
        !            20:        _bp = Allocate(_n);
        !            21:        externalize_Clearinghouse2_RetrieveAddressesResults(&_Results, _bp);
        !            22:        SendReturnMessage(_n, _bp);
        !            23:        Deallocate(_bp);
        !            24: }
        !            25: 
        !            26: Server(skipcount,skippedwords)
        !            27:        int skipcount;
        !            28:        Unspecified skippedwords[];
        !            29: {
        !            30:        Cardinal _procedure;
        !            31:        register Unspecified *_buf;
        !            32:        LongCardinal programnum;
        !            33:        Cardinal versionnum;
        !            34:        Cardinal _n;
        !            35: 
        !            36:        for (;;) {
        !            37:                _buf = ReceiveCallMessage(&_procedure, skipcount, skippedwords);
        !            38:                DURING switch (_procedure) {
        !            39:                case 0:
        !            40:                        server_Clearinghouse2_RetrieveAddresses(_buf);
        !            41:                        break;
        !            42:                default:
        !            43:                        NoSuchProcedureValue("Clearinghouse", _procedure);
        !            44:                        break;
        !            45:                } HANDLER {
        !            46:                    Deallocate(_buf);
        !            47:                    switch (&Exception.Code) {
        !            48:                    case Clearinghouse2_WrongServer:
        !            49:                        _n = sizeof_T_cn2_48((T_cn2_48 *)Exception.Message);
        !            50:                        _buf = Allocate(_n);
        !            51:                        (void) externalize_T_cn2_48((T_cn2_48*)Exception.Message, _buf);
        !            52:                        SendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);
        !            53:                        break;
        !            54:                    case Clearinghouse2_UpdateError:
        !            55:                        _n = sizeof_T_cn2_47((T_cn2_47 *)Exception.Message);
        !            56:                        _buf = Allocate(_n);
        !            57:                        (void) externalize_T_cn2_47((T_cn2_47*)Exception.Message, _buf);
        !            58:                        SendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);
        !            59:                        break;
        !            60:                    case Clearinghouse2_PropertyError:
        !            61:                        _n = sizeof_T_cn2_46((T_cn2_46 *)Exception.Message);
        !            62:                        _buf = Allocate(_n);
        !            63:                        (void) externalize_T_cn2_46((T_cn2_46*)Exception.Message, _buf);
        !            64:                        SendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);
        !            65:                        break;
        !            66:                    case Clearinghouse2_CallError:
        !            67:                        _n = sizeof_T_cn2_45((T_cn2_45 *)Exception.Message);
        !            68:                        _buf = Allocate(_n);
        !            69:                        (void) externalize_T_cn2_45((T_cn2_45*)Exception.Message, _buf);
        !            70:                        SendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);
        !            71:                        break;
        !            72:                    case Clearinghouse2_AuthenticationError:
        !            73:                        _n = sizeof_T_cn2_44((T_cn2_44 *)Exception.Message);
        !            74:                        _buf = Allocate(_n);
        !            75:                        (void) externalize_T_cn2_44((T_cn2_44*)Exception.Message, _buf);
        !            76:                        SendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);
        !            77:                        break;
        !            78:                    case Clearinghouse2_ArgumentError:
        !            79:                        _n = sizeof_T_cn2_43((T_cn2_43 *)Exception.Message);
        !            80:                        _buf = Allocate(_n);
        !            81:                        (void) externalize_T_cn2_43((T_cn2_43*)Exception.Message, _buf);
        !            82:                        SendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);
        !            83:                        break;
        !            84:                    default:
        !            85:                        _buf = Allocate(0);
        !            86:                        SendRejectMessage(unspecifiedError, 0, _buf);
        !            87:                        break;
        !            88:                    }
        !            89:                } END_HANDLER;
        !            90:                Deallocate(_buf);
        !            91:                for (;;) {
        !            92:                        skipcount = LookAheadCallMsg(&programnum, &versionnum,
        !            93:                                                     skippedwords);
        !            94:                        if (skipcount < 0) return(0);   /* timed out */
        !            95:                        if (programnum != 2 || versionnum != 2)
        !            96:                                ExecCourierProgram(programnum, versionnum,
        !            97:                                                   skipcount, skippedwords);
        !            98:                }  /* can't exec that program */
        !            99:        }
        !           100: }

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