home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / OAKERROR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-21  |  1.2 KB  |  59 lines
  1. /*
  2.       oakerror.c 
  3.  
  4.     % oak_Error: The Oakland C-tools error handler.
  5.  
  6.     OWL 1.2
  7.     Copyright (c) 1986, 1987, 1988, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.     12/13/88 jmd    removed printf
  13.      3/28/90 jmd    ansi-fied
  14. */
  15.  
  16. #include "oakhead.h"
  17. #include "disppriv.h"
  18. /* -------------------------------------------------------------------------- */
  19.  
  20. void oak_Error(int prod, int err, int num)
  21. /*
  22.     Display error and exit.
  23.     prod is the Oakland product code.
  24.     If prod == C_SCAPE && num != 0 then show menu_Printf line number.
  25. */
  26. {
  27.     char errmsg[100];
  28.  
  29.     disp_Close();
  30.  
  31.     switch (prod) {
  32.     case C_OWL:
  33.         sprintf(errmsg, "Oakland windowing layer: Error Number %d.", err);
  34.         break;
  35.  
  36.     case C_SCAPE:
  37.         if (num == 0) {
  38.             sprintf(errmsg, "C-scape: Error Number %d.", err);
  39.         }
  40.         else {
  41.             sprintf(errmsg, "C-scape: Error Number %d in menu_Printf() %d.", err, num);
  42.         }
  43.         break;
  44.  
  45.     case C_CELL:
  46.         sprintf(errmsg, "C-cell: Error Number %d.", err);
  47.         break;
  48.  
  49.     default:
  50.         sprintf(errmsg, "oak_Error: Unknown Error Number %d.", err);
  51.         break;
  52.     }
  53.  
  54.     puts(errmsg);
  55.     exit(0);
  56. }
  57. /* -------------------------------------------------------------------------- */
  58.  
  59.