home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SPCABORT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  580 b   |  38 lines
  1. /*
  2.     spcabort.c
  3.  
  4.     % spc_Abort
  5.  
  6.     special_key function.
  7.  
  8.     Traps ESCAPE and sets baton to SED_ABORT.
  9.  
  10.     C-scape 3.2
  11.     Copyright (c) 1988, by Oakland Group, Inc.
  12.     ALL RIGHTS RESERVED.
  13.  
  14.     Revision History:
  15.     -----------------
  16.      3/28/90 jmd    ansi-fied
  17. */
  18.  
  19. #include <stdio.h>
  20.  
  21. #include "cscape.h"
  22. #include "scancode.h"
  23.  
  24. boolean spc_Abort(sed_type sed, int scancode)
  25. /*
  26.     Sets baton to SED_ABORT and exits the sed when ESC is pressed.
  27. */
  28. {
  29.     if (scancode == ESC) {
  30.         sed_SetBaton(sed, SED_ABORT);
  31.         sed_ToggleExit(sed);
  32.         return(TRUE);
  33.     }
  34.  
  35.     return(FALSE);
  36. }
  37.  
  38.