//#################################################################

// 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

        long data;              // holds data from SAFEARRAY

        long i;                 // SAFEARRAY incrementer

        BSTR board = ::SysAllocString(L"C6xxx EVM (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 32-bit integer message

                status = rtdx->ReadSAI4( &sa );



                // test status returned from ReadSAI4

                switch ( status ) {

                        case Success:

                                // Display data

                                cout << "\n";

                                for ( i = 0; i < (signed)sa.parray->rgsabound[0].cElements; i++) {

                                        hr = ::SafeArrayGetElement( sa.parray, &i, (long*)&data );

                                        cout << data << "\t";

                                }

                                break;

                        case Failure:

                                cerr << hex \

                                     << status \

                                     << " - Error: ReadSAI4 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;

}