source: tags/20100403/lang/octave/rpUnitsGetUnits.cc @ 1687

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

#include "RpOctaveInterface.h"

/**********************************************************************/
// METHOD: [retStr,err] = rpUnitsGetUnits(unitHandle)
/// Return the units of the Rappture Unit represented by unitHandle.
/**
 * Retrieve the units of the Rappture Units object with the handle 
 * 'unitHandle'. Note this does not include the exponent.
 * For units and exponent in one string see rpUnitsGetUnitsName().
 * Return the units as a string.
 * Error code, err=0 on success, anything else is failure.
 */

DEFUN_DLD (rpUnitsGetUnits, args, ,
"-*- texinfo -*-\n\
[retVal,err] = rpUnitsGetUnits(@var{unitHandle})\n\
\n\
Retrieve the units of the Rappture Units object with the handle \n\
'unitHandle'. Note this does not include the exponent.\n\
For units and exponent in one string see rpUnitsGetUnitsName().\n\
Return the units as a string.\n\
Error code, err=0 on success, anything else is failure.")
{
    static std::string who = "rpUnitsGetUnits";

    // The list of values to return.
    octave_value_list retval;
    int err = 1;
    int nargin = args.length ();

    const RpUnits* myUnit = NULL;
    int unitHandle = 0;
    std::string retStr = "";

    if (nargin == 1) {

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

            unitHandle = args(0).int_value ();

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

                // get the original unit
                myUnit = getObject_UnitsStr(unitHandle);
                if (myUnit) {
                    // get the basis
                    retStr = myUnit->getUnits();
                    // adjust error code
                    err = 0;
                }
            }
            else {
                // invalid unitHandle
                _PRINT_USAGE (who.c_str());
            }
        }
        else {
            _PRINT_USAGE (who.c_str());
        }
    }
    else {
        _PRINT_USAGE (who.c_str());
    }

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