source: trunk/lang/octave/rpLibNodeComp.cc @ 1025

/*
 * ----------------------------------------------------------------------
 *  INTERFACE: Octave Rappture Library Source
 *
 *    [retStr,err] = rpLibNodeComp(nodeHandle)
 *
 * ======================================================================
 *  AUTHOR:  Derrick Kearney, Purdue University
 *  Copyright (c) 2005
 *  Purdue Research Foundation, West Lafayette, IN
 * ======================================================================
 */

#include "RpOctaveInterface.h"

/**********************************************************************/
// METHOD: [retStr,err] = rpLibNodeComp(nodeHandle)
/// Return the component name of the node represented by 'nodeHandle'
/**
 * This method returns the component name of the node represented 
 * by 'nodeHandle'. The component name is a concatination of the  
 * type, id, and index.
 * Error code, err=0 on success, anything else is failure.
 */

DEFUN_DLD (rpLibNodeComp, args, ,
"-*- texinfo -*-\n\
[retStr,err] = rpLibNodeComp(@var{nodeHandle})\n\
\n\
This method returns the component name of the node represented \n\
by @var{nodeHandle}. The component name is a concatination of the \n\
type, id, and index.\n\
Error code, err=0 on success, anything else is failure.")
{
    static std::string who = "rpLibNodeComp";

    // The list of values to return.
    octave_value_list retval;
    int err = 1;
    int nargin = args.length ();
    int libHandle = 0;
    RpLibrary* lib = NULL;
    std::string retStr = "";

    if (nargin == 1) {

        if ( args(0).is_real_scalar() ) { 

            libHandle = args(0).int_value ();

            /* Call the C subroutine. */
            if ( (libHandle >= 0) ) {

                lib = getObject_Lib(libHandle);
                if (lib) {
                    retStr = lib->nodeComp();
                    if (!retStr.empty()) {
                        err = 0;
                    }
                }
                else {
                    // lib is NULL, not found in dictionary
                    // std::cout << "lib was NULL" << std::endl;
                }
            }
            else {
                // libHandle is negative
                print_usage (who.c_str());
            }
        }
        else {
            // wrong argument types
            print_usage (who.c_str());
        }
    }
    else {
        // wrong number of arguments
        print_usage (who.c_str());
    }

    retval(0) = retStr;
    retval(1) = err;
    return retval;
}