/*
 * dsp_cplx_sim.c 
 *
 * DSP Blockset helper function.
 *
 * Check input/output port complexity information. 
 *
 * NOTE: This is a query on the port complexity information. Therefore, 
 * the information must already be set for the port.
 *
 *
 * Copyright (c) 1995-1999 The MathWorks, Inc. All Rights Reserved.
 * $Revision: 1.6 $ $Date: 2000/03/16 14:57:09 $
 */

#include "dsp_cplx_sim.h"

/*--------------------------------------------------------------*/
/* COMPLEX_INHERITED:
 */
boolean_T isInputComplexInherited(SimStruct *S, int_T port) {
  return((boolean_T)(ssGetInputPortComplexSignal(S,port) == COMPLEX_INHERITED));
}

boolean_T isOutputComplexInherited(SimStruct *S, int_T port) 
{
    return((boolean_T)(ssGetOutputPortComplexSignal(S,port) == COMPLEX_INHERITED));
}

/*--------------------------------------------------------------*/
/* REAL:
 */
boolean_T isInputReal(SimStruct *S, int_T port) {
    return((boolean_T)(ssGetInputPortComplexSignal(S,port) == COMPLEX_NO));
}

boolean_T isOutputReal(SimStruct *S, int_T port) {
    return((boolean_T)(ssGetOutputPortComplexSignal(S,port) == COMPLEX_NO));
}

/*--------------------------------------------------------------*/
/* COMPLEX:
 */
boolean_T isInputComplex(SimStruct *S, int_T port) 
{
    return((boolean_T)(ssGetInputPortComplexSignal(S,port) == COMPLEX_YES));
}


boolean_T isOutputComplex(SimStruct *S, int_T port) 
{
    return((boolean_T)(ssGetOutputPortComplexSignal(S,port) == COMPLEX_YES));
}

/* [EOF] dsp_cplx_sim.c */