deps/PicklingTools170Release/Xm/ptools170/lib/ptools/t4val.cc
void initT4Val (CPHEADER& hcb, string name, int_4 hcbfmode)
{
  m_init(hcb, name, "4000", "", 0);
  if ((hcbfmode & HCBF_INPUT) == HCBF_INPUT) {
    m_open(hcb, hcbfmode);
    
    // Setup to grab 1 vrb at a time and non-blocking.
    hcb.xfer_len = 1;
    hcb.cons_len = -2;
  }
  else if ((hcbfmode & HCBF_OUTPUT) == HCBF_OUTPUT) {
    hcbfmode |= HCBF_NOABORT;
    m_open(hcb, hcbfmode);
    hcb.vrecord_length = 0;
  }
  else {
    m_error("[initT4Val]: HCBF mode not specified.");
  }
}
///////////////////////////////////////////////////////////////////////////////
// FUNCTION: initT4Val
//
// DECRIPTION:
//   This function initializes and opens a T4000 file/pipe.
//
///////////////////////////////////////////////////////////////////////////////
initT4Val
DECRIPTION:
This function initializes and opens a T4000 file/pipe.
initT4Val DECRIPTION : This function initializes and opens a T4000 file / pipe .
void initT4Val (CPHEADER& hcb, string name, int_4 hcbfmode)
{
  m_init(hcb, name, "4000", "", 0);
  if ((hcbfmode & HCBF_INPUT) == HCBF_INPUT) {
    m_open(hcb, hcbfmode);
    hcb.xfer_len = 1;
    hcb.cons_len = -2;
  }
  else if ((hcbfmode & HCBF_OUTPUT) == HCBF_OUTPUT) {
    hcbfmode |= HCBF_NOABORT;
    m_open(hcb, hcbfmode);
    hcb.vrecord_length = 0;
  }
  else {
    m_error("[initT4Val]: HCBF mode not specified.");
  }
}
void initT4Val ( CPHEADER & hcb , string name , int_4 hcbfmode ) { m_init ( hcb , name , " " , " " , 0 ) ; if ( ( hcbfmode & HCBF_INPUT ) == HCBF_INPUT ) { m_open ( hcb , hcbfmode ) ; hcb . xfer_len = 1 ; hcb . cons_len = -2 ; } else if ( ( hcbfmode & HCBF_OUTPUT ) == HCBF_OUTPUT ) { hcbfmode |= HCBF_NOABORT ; m_open ( hcb , hcbfmode ) ; hcb . vrecord_length = 0 ; } else { m_error ( " " ) ; } }
FUNCTION: initT4Val
DECRIPTION:
This function initializes and opens a T4000 file/pipe.
FUNCTION : initT4Val DECRIPTION : This function initializes and opens a T4000 file / pipe .
// Setup to grab 1 vrb at a time and non-blocking.