home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / MENUVARS.C < prev    next >
C/C++ Source or Header  |  1990-04-03  |  661b  |  45 lines
  1. /*
  2.     menuvars.c
  3.  
  4.     % menu_GetVarSize
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1988, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      8/23/88 jdc    created
  13.      7/06/89 jdc    fixed VAR_TED
  14.  
  15.      3/28/90 jmd    ansi-fied
  16. */
  17.  
  18. #include "menu.h"
  19.  
  20. SIZE_T menu_GetVarSize(menu_type menu, int fld)
  21. /*
  22. */    
  23. {
  24.     SIZE_T varsize;
  25.  
  26.     switch((varsize = field_GetVarSize(menu_GetField(menu, fld)))) {
  27.  
  28.     case VAR_INVALID:
  29.         cs_Assert(FALSE, CS_BOB_NOSLED, 0);
  30.         break;
  31.     case VAR_STRING:
  32.         varsize = menu_GetRecordLen(menu, fld) + 1;
  33.         break;
  34.     case VAR_TED:
  35.         varsize = 0;
  36.         break;
  37.     default:
  38.         break;
  39.     }
  40.  
  41.     return(varsize);
  42. }
  43.  
  44.  
  45.