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: }