/*
**
*
* CASES.C -- Provides a functional case capabilities.
*
* All functions (c) 1993, McKee Foods Corporation
*
* Description:
* CASES([logical1], [return1], <logical2>, <return2>,;
* <...>, [otherwise])
* Returns the value following the first TRUE logical
* expression or the otherwise value.
*
*
* SWITCH([variable], [const1], [return1], <const2>,;
* <return2>, <...>, [otherwise])
* switch(variable)
* {
* case const1: return(return1);
* case const2: return(return2);
* .
* .
* .
* }
*
**
*/
#include <pro_ext.h>
#include <stdlib.h>
#include <string.h>

void _fltused(void)
{
}

void FAR cases(ParamBlk FAR *parm)
{
int i, done;

if ( (parm->pCount %  2 ) !=  1  )
 _Error( 239 );

for( done = i =  0 ;
 i < parm->pCount -  1  && !done;
 i +=  2 )
{  
  if( parm->p[i].val.ev_type == 'L' &&
      parm->p[i].val.ev_length)
   done =  1 ;
}

if ( done )
  _RetVal( &(parm->p[i -  1 ]) );
else
  _RetVal( &(parm->p[parm->pCount -  1 ]) );
}

void FAR my_switch(ParamBlk FAR *parm)
{
int i, len, done;
char FAR *string;
char mode;

if ( (parm->pCount %  2 ) !=  0  )
 _Error( 239 );

mode = parm->p[ 0 ].val.ev_type;

if ( strchr( "CNID", mode ) == NULL )
 _Error( 302 );

if ( mode == 'C' )
{
 len = parm->p[ 0 ].val.ev_length;
 string = (char*)_HandToPtr(parm->p[ 0 ].val.ev_handle);
}

for(i =  1 , done =  0 ;
 i < parm->pCount -  1  && !done;
 i +=  2 )
{
 if ( parm->p[i].val.ev_type == mode ) switch ( mode )
 {
  case 'C':
   done = ( _fstrncmp(string,
   _HandToPtr(parm->p[i].val.ev_handle), len) ==  0  );
   break;
  case 'N':
  case 'D':
   done = ( parm->p[ 0 ].val.ev_real ==
   parm->p[i].val.ev_real );
   break;
  case 'I':
   done = ( parm->p[ 0 ].val.ev_long ==
   parm->p[i].val.ev_long );
   break;
 } else 
 if ( mode == 'N' && parm->p[i].val.ev_type == 'I' )
  done = ( (long) parm->p[ 0 ].val.ev_real ==
  parm->p[i].val.ev_long );
 else
 if ( mode == 'I' && parm->p[i].val.ev_type == 'N' )
  done = ( parm->p[ 0 ].val.ev_long ==
  (long) parm->p[i].val.ev_real );
}

if ( done )
 _RetVal( &(parm->p[i -  1 ]) );
else
 _RetVal( &(parm->p[parm->pCount -  1 ]) );
}

/* Strings should be on one line when compiling. */
FoxInfo myFoxInfo[] =
{
 {"CASES", cases,  23 ,
 "L,?,?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,
.?,.?,.?,.?,.?"},
 {"SWITCH", my_switch,  24 ,
 "?,?,?,?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?,.?
,.?,.?,.?,.?,.?"}
};

FoxTable _FoxTable =
{
 (FoxTable FAR *) 0 ,
 sizeof(myFoxInfo) / sizeof(FoxInfo),
 myFoxInfo
};