1: /* $Header$ */ 2: 3: /* 4: * Author: Peter J. Nicklin 5: */ 6: 7: /* 8: * slsget() returns a pointer to the next block in list slslist, or null 9: * upon reaching end of list. 10: */ 11: #include "null.h" 12: #include "slslist.h" 13: 14: SLSBLK * 15: slsget(slslist) 16: SLSLIST *slslist; /* pointer to list head block */ 17: { 18: SLSBLK *slsbptr; /* block pointer */ 19: 20: if (slslist->curblk != NULL) 21: { 22: slsbptr = slslist->curblk; 23: slslist->curblk = slslist->curblk->next; 24: return(slsbptr); 25: } 26: else 27: return(NULL); 28: }