Return to slinit.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mkmf / src

Annotation of 43BSD/contrib/mkmf/src/slinit.c, revision 1.1.1.1

1.1       root        1: /* $Header: slinit.c,v 1.2 85/03/18 13:18:52 nicklin Exp $ */
                      2: 
                      3: /*
                      4:  * Author: Peter J. Nicklin
                      5:  */
                      6: 
                      7: /*
                      8:  * slinit() returns a pointer to the head block of a new list, or null
                      9:  * pointer if out of memory.
                     10:  */
                     11: #include <stdio.h>
                     12: #include "null.h"
                     13: #include "slist.h"
                     14: 
                     15: extern char *PGN;                      /* program name */
                     16: 
                     17: SLIST *
                     18: slinit()
                     19: {
                     20:        char *malloc();                 /* memory allocator */
                     21:        SLIST *slist;                   /* pointer to list head block */
                     22: 
                     23:        if ((slist = (SLIST *) malloc(sizeof(SLIST))) == NULL)
                     24:                {
                     25:                if (*PGN != '\0')
                     26:                        fprintf(stderr, "%s: ", PGN);
                     27:                fprintf(stderr, "out of memory\n");
                     28:                return(NULL);
                     29:                }
                     30:        slist->nk = 0;
                     31:        slist->maxkey = 0;
                     32:        slist->head = slist->curblk = slist->tail = NULL;
                     33:        return(slist);
                     34: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.