//#################################################################
// S4L6.cpp - (Section 4, Lesson 6) USING THE SETPROCESSOR ROUTINE
//            This is the RTDX Host Client for Section 4, Lesson 6
//
// This example receives integer values 1-10 from the target
//#################################################################

#import "..\..\..\..\..\cc\bin\rtdxint.dll"
#include <iostream.h>


using namespace RTDXINTLib;

int main()
{
        IRtdxExpPtr rtdx;       // holds pointer to IRtdxExp interface
        long status;            // holds status of RTDX COM API calls
        HRESULT hr;             // holds status of generic COM API calls
        VARIANT sa;             // holds pointer to SAFEARRAY
        short data;             // holds data from SAFEARRAY
        long i;                 // SAFEARRAY incrementer
        BSTR board = ::SysAllocString(L"C54xx XDS (Texas Instruments)");
        BSTR cpu =   ::SysAllocString(L"CPU_1");

        // initialize COM
        ::CoInitialize( NULL );

        // initialize VARIANT
        ::VariantInit( &sa );

        // instantiate the RTDX COM Object
        hr = rtdx.CreateInstance( L"RTDX" );
        
        if ( FAILED(hr) ) {
                cerr << hex << hr << " - Error: Instantiation failed! \n";
                return -1;
        }

        cout.setf( ios::showbase );

        // attach to a specific board and processor
        status = rtdx->SetProcessor(board, cpu);
        if ( status != Success ) {
                cerr << hex << status \
                     << " - Error: Attempt to attach to specified processor failed! \n";
                     return -1;
        }


        ::SysFreeString(board);
        ::SysFreeString(cpu);

        // open a channel (ochan) for reading
        status = rtdx->Open( "ochan", "R" );

        if ( status != Success ) {
                cerr << hex << status \
                     << " -  Error: Opening of a channel failed! \n";
                return -1;
        }

        // loop until we have read all of our messages
        do {
                // read a 16-bit integer message
                status = rtdx->ReadSAI2( &sa );

                // test status returned from ReadSAI2
                switch ( status ) {
                        case Success:
                                // Display data
                                cout << "\n";
                                for ( i = 0; i < (signed)sa.parray->rgsabound[0].cElements; i++) {
                                        hr = ::SafeArrayGetElement( sa.parray, &i, (short*)&data );
                                        cout << data << "\t";
                                }
                                break;
                        case Failure:
                                cerr << hex \
                                     << status \
                                     << " - Error: ReadSAI2 returned failure! \n";
                                return -1;
                        case ENoDataAvailable:
                                cout << "\n\nNo Data is currently available!\n";
                                cout << "\n\nWould you like to continue reading [y or n]?\n";
                                char option;
                                cin >> option;
                                if ( (option == 'y') || (option == 'Y') )
                                        break;
                                else
                                        return -1;
                        case EEndOfLogFile:
                                cout << "\n\nData Processing Complete!\n";
                                break;
                        default:
                                cerr << hex << status << " - Error: Unknown return code! \n";
                                return -1;
                }

        } while ( status != EEndOfLogFile );

        // close the channel
        status = rtdx->Close();

        // release the RTDX COM Object
        rtdx.Release();

        // clear Variant
        ::VariantClear( &sa );

        // uninitialize COM
        ::CoUninitialize();

         return 0;
}