home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / AUXTOP.C next >
Encoding:
C/C++ Source or Header  |  1990-08-04  |  752 b   |  43 lines
  1. /*
  2.     auxtop.c      4/11/90
  3.  
  4.     % aux_Top
  5.  
  6.     auxiliary function for bringing seds to the
  7.     top when they are activated.
  8.  
  9.     C-scape 3.2
  10.     Copyright (c) 1990, by Oakland Group, Inc.
  11.     ALL RIGHTS RESERVED.
  12.  
  13.     Revision History:
  14.     -----------------
  15.      6/22/90 ted    Added oak_notused macros to avoid compiler warnings.
  16.      7/29/90 jmd    renamed SED_GO msg to WINA_STARTGO
  17. */
  18.  
  19. #include <stdio.h>
  20. #include <ctype.h>
  21.  
  22. #include "cscape.h"
  23. #include "scancode.h"
  24.  
  25. int    aux_Top(sed_type sed, int msg, VOID *indata, VOID *outdata)
  26. /*
  27.     An auxiliary function that tops a sed when it becomes current
  28. */
  29. {
  30.     oak_notused(indata);
  31.     oak_notused(outdata);
  32.  
  33.     switch(msg) {
  34.     case WINA_STARTGO:
  35.         sed_Top(sed);
  36.         break;
  37.     default:
  38.         break;
  39.     }
  40.  
  41.     return(1);
  42. }
  43.