1: /* $Header$ */ 2: 3: /* 4: * Author: Peter J. Nicklin 5: */ 6: 7: /* 8: * pbgetkey() loads the next key field into key. Returns key or null 9: * character if no more key fields. 10: */ 11: 12: extern char *KP; /* next key field */ 13: 14: char * 15: pbgetkey(key) 16: char *key; /* key string */ 17: { 18: char *pbcpykey(); /* copy key */ 19: char *pbskipkey(); /* skip to next key */ 20: 21: key = pbcpykey(key, KP); 22: KP = pbskipkey(KP); 23: return(key); 24: }