home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SLEDPROT.C < prev    next >
Text File  |  1990-11-01  |  1KB  |  72 lines
  1. /*
  2.     sledprot.c
  3.  
  4.     % sled protection, marking, and support routines
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1989, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      8/04/89 gam    Created
  13.  
  14.      3/28/90 jmd    ansi-fied
  15.      6/12/90 jdc    fixed protection stuff
  16. */
  17.  
  18. #include "sed.h"
  19. #include "sadecl.h"
  20. #include "sldwinod.h"
  21. #include "sled.h"
  22. #include "sledprot.h"
  23.  
  24. void sled_GetMarkAttr(sed_type sed, byte *regular, byte *selected)
  25. {
  26.     *regular = sled_GetRegAttr(sed);
  27.     *selected = sled_GetSelAttr(sed);
  28. }
  29.  
  30. void sled_SetMarkAttr(sed_type sed, byte regular, byte selected)
  31. {
  32.     sled_SetRegAttr(sed, regular);
  33.     sled_SetSelAttr(sed, selected);
  34. }
  35.  
  36. void sled_setrowflags(sed_type sed, int row, boolean torf, int mask)
  37. {
  38.     int    value;
  39.  
  40.     if (torf) {
  41.         value = sled_getrowspecial(sed, row) | mask;
  42.     }
  43.     else {
  44.         value = sled_getrowspecial(sed, row) & (mask^0xFFFF);
  45.     }
  46.  
  47.     if (row >= sled_flagsize(sed)) {
  48.         sled_flagsize(sed) = row + 1;
  49.     }
  50.  
  51.     sa_Put((sarray_type) xa_Get(sled_GetXa(sed), sled_GetWidth(sed)),
  52.             (long) row, &value);
  53.  
  54.     sled_remapper(sed, 0);
  55. }
  56.  
  57. void sled_setcolflags(sed_type sed, int col, boolean torf, int mask)
  58. {
  59.     int            value;
  60.  
  61.     if (torf) {
  62.         value = ia_Get(sled_getcflags(sed), col) | mask;
  63.     }
  64.     else {
  65.         value = ia_Get(sled_getcflags(sed), col) & (mask^0xFFFF);
  66.     }
  67.  
  68.     ia_Put(sled_getcflags(sed), col, value);
  69.  
  70.     sled_remapper(sed, 0);
  71. }
  72.