home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / recio213.zip / rwmsg.c < prev    next >
C/C++ Source or Header  |  1995-09-05  |  2KB  |  51 lines
  1. /*****************************************************************************
  2.    MODULE: rwmsg.c
  3.   PURPOSE: recio simple warning message function
  4. COPYRIGHT: (C) 1994-1995, William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.13
  8.   RELEASE: September 4, 1995
  9. *****************************************************************************/
  10.  
  11. #include <errno.h>
  12. #include <stdio.h>
  13. #include <stdlib.h>
  14. #include <string.h>
  15.  
  16. #include "recio.h"
  17.  
  18. /****************************************************************************/
  19. void                         /* returns nothing                             */
  20.     rwarnmsg(                /* recio simple callback warning function      */
  21.         REC *rp)             /* record pointer                              */
  22. /****************************************************************************/
  23. {
  24.   if (risvalid(rp)) {
  25.     rsetfldch(recerr, ' ');
  26.     rsettxtch(recerr, ' ');
  27.  
  28.     switch (rwarning(rp)) {
  29.     case R_WWIDTH:  /* data too wide to fit into columnar output */
  30.     case R_WEMPSTR: /* empty data string */
  31.     case R_WTMFMT:  /* time data incomplete */
  32.       rputs(recerr, "\nWARNING in");
  33.       rputs(recerr, rnames(rp));
  34.       rputs(recerr, "at record");
  35.       rputul(recerr, rrecno(rp));
  36.       rputs(recerr, "and field");
  37.       rputui(recerr, rfldno(rp));
  38.       rputs(recerr, "--");
  39.       rputs(recerr, rwarnstr(rp));
  40.       rputrec(recerr);
  41.       break;
  42.     case R_WNOREG:  /* atexit() full */
  43.     default:        /* unknown warning */
  44.       rputs(recerr, "\nWARNING --");
  45.       rputs(recerr, rwarnstr(rp));
  46.       rputrec(recerr);
  47.       break;
  48.     }
  49.   }
  50. }
  51.