home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CODE4-1.ZIP / SOURCE.ZIP / E4NAME.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-13  |  1.4 KB  |  46 lines
  1.  
  2. /*  e4name.c   (c)Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.  */
  3.  
  4. #include "d4base.h"
  5. #include "e4parse.h"
  6.  
  7. char *  e4name( op_code)
  8. char op_code ;
  9. {
  10.    switch (op_code)
  11.    {
  12.       case A_ADD:       return( "+") ;
  13.       case A_SUBTRACT:  return( "-") ;
  14.       case A_MULTIPLY:  return( "*") ;
  15.       case A_DIVIDE:    return( "/") ;
  16.       #ifndef UNIX
  17.       case A_POWER:     return( "**  or  ^") ;
  18.       #endif
  19.       case L_AND:       return( ".AND.") ;
  20.       case L_OR:    return( ".OR.") ;
  21.       case L_NOT:       return( ".NOT.") ;
  22.       case R_GE:    return( ">=") ;
  23.       case R_LE:    return( "<=") ;
  24.       case R_GT:    return( ">") ;
  25.       case R_LT:    return( "<") ;
  26.       case R_EQ:    return( "=") ;
  27.       case R_NE:    return( "# or <>") ;
  28.       case R_SUB_COMPARE: return("$") ;
  29.       case F_DATE:      return( "DATE") ;
  30.       case F_DTOC:      return( "DTOC") ;
  31.       case F_DTOS:      return( "DTOS") ;
  32.       case F_CTOD:      return( "CTOD") ;
  33.       case F_RECNO:     return( "RECNO") ;
  34.       case F_RECCOUNT:  return( "RECCOUNT") ;
  35.       case F_TIME:      return( "TIME") ;
  36.       case F_STR:       return( "STR") ;
  37.       case F_VAL:       return( "VAL") ;
  38.       case F_SUBSTR:    return( "SUBSTR") ;
  39.       case F_IIF:       return( "IIF") ;
  40.       case F_DELETED:   return( "DELETED") ;
  41.       case F_DEL:       return( "DEL") ;
  42.       case F_UPPER:     return( "UPPER") ;
  43.    }
  44.    return( (char *) 0 ) ;
  45. }
  46.