// $Revision: 1.7 $

    // Copyright (C) 1994-1995 Taligent, Inc. All rights reserved.

#ifndef TaligentSamples_DISPATCHERON
#include "DispatcherOn.h"
#endif

#ifndef Taligent_SERVICEACCESS
#include <Taligent/ServiceAccess.h>
#endif

#ifndef Taligent_MESSAGESTREAMS
#include <Taligent/MessageStreams.h>
#endif

#ifndef Taligent_DISPATCHERTHREAD
#include <Taligent/DispatcherThread.h>
#endif

#ifndef TaligentSamples_RPNCALC
#include "RPNCalc.h"
#endif


void
DispatcherMain()
{
    TQualityOfService serviceQuality(TQualityOfService::kSameHost);

    TStandardServiceDefinition* serviceDefinition =
        new TStandardServiceDefinition(TLocalObjectName("TemplateRPCDispatcher"), serviceQuality);
    serviceDefinition->AddReference();
    
    TImplementationOn<TRPNCalc>* dispatcherImp =
        new TImplementationOn<TRPNCalc>(new TRPNCalc);
        
    TRequestReceiverStream receiverStream(serviceDefinition);
    
    TDispatcherOn<TRPNCalc> dispatcher(dispatcherImp);
    
    try {
        TDispatcherThread::Dispatch(receiverStream, dispatcher);
    }
    catch (...) {}

    serviceDefinition->RemoveReference();
}