1: /* $Header$ */
   2: 
   3: /*
   4:  * Author: Peter J. Nicklin
   5:  */
   6: 
   7: /*
   8:  * pbrmflag() removes flag from buffer.
   9:  */
  10: #include "pdbuf.h"
  11: 
  12: extern char *CURPBUF;           /* current database buffer */
  13: 
  14: void
  15: pbrmflag(flag)
  16:     register char *flag;        /* flag string */
  17: {
  18:     register char *bp;      /* buffer pointer */
  19:     char *pbskipfield();        /* skip to next non-key field */
  20:     void pbshrink();        /* shrink buffer */
  21: 
  22:     bp = CURPBUF;
  23:     while (*(bp = pbskipfield(bp)) != '\0')
  24:         if (bp[0] == flag[0] && bp[1] == flag[1] &&
  25:             (bp[2] == ':' || bp[2] == '\0'))
  26:             {
  27:             if (bp[2] == _PBFS)
  28:                 pbshrink(bp, 3);
  29:             else
  30:                 pbshrink(bp, 2);
  31:             break;
  32:             }
  33: }

Defined functions

pbrmflag defined in line 14; used 2 times
Last modified: 1985-07-03
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 519
Valid CSS Valid XHTML 1.0 Strict