home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / CMONTHN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-22  |  1.2 KB  |  32 lines
  1. /*********
  2. * cmonthn.c by Leonard Zerman
  3. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  4. *
  5. * Syntax: CMONTHN(<expN>)
  6. * Return: character month from <expN> 
  7. *         NULL if invalid month.
  8. *         Minimum month is 1, maximum month is 12.
  9. ********/
  10.  
  11. #include "trlib.h"
  12.  
  13. TRTYPE cmonthn()                           /* declare the cmonthn function */
  14. {
  15.     static char funcname[] = {"cmonthn"};     /* program name for errors */
  16.     int month;
  17.     static char *lookup[13]=             /* declare static look-up array */
  18.     { MONTH0, MONTH1, MONTH2, MONTH3,  MONTH4,  MONTH5, MONTH6,  
  19.       MONTH7, MONTH8, MONTH9, MONTH10, MONTH11, MONTH12
  20.     };                                 /* months are #defined in trlib.h */
  21.  
  22.     if (PCOUNT == 1 && ISNUM(1))                   /* check passed parms */
  23.     {                  
  24.         month = _parni(1);                                /* assign vars */
  25.        _retc( (month>=1 && month<=12) ? lookup[month] : lookup[0] ); 
  26.     }
  27.     else
  28.        _retc(_tr_errmsgs(funcname, E_SYNTAX));           /* syntax error */
  29.     return;                                       /* return from program */
  30. }
  31. /* eof */
  32.