139 lines
3.7 KiB
C
139 lines
3.7 KiB
C
/* Copyright (c) 1993, by Pandora Systems */
|
|
/* Author: Mitra <mitra@path.net> */
|
|
/* Allocation code copied and adapted from:
|
|
prospero/alpha.5.2a+/lib/pfs/flalloc */
|
|
|
|
#include "buffalloc.h"
|
|
#include <pfs.h>
|
|
#include <pfs_threads.h>
|
|
#include <mitra_macros.h>
|
|
#include "source.h"
|
|
#define Channel_Illegal 0;
|
|
|
|
EXTERN_ALLOC_DECL(WAISSOURCE);
|
|
|
|
static WAISSOURCE lfree = NULL; /* Free waissources */
|
|
/* These are global variables which will be read by dirsrv.c
|
|
Too bad C doesn't have better methods for structuring such global data. */
|
|
|
|
int waissource_count = 0;
|
|
int waissource_max = 0;
|
|
|
|
|
|
/************* Standard routines to alloc, free and copy *************/
|
|
/*
|
|
* waissource_alloc - allocate and initialize WAISSOURCE structure
|
|
*
|
|
* returns a pointer to an initialized structure of type
|
|
* WAISSOURCE. If it is unable to allocate such a structure, it
|
|
* signals out_of_memory();
|
|
*/
|
|
|
|
WAISSOURCE
|
|
waissource_alloc()
|
|
{
|
|
WAISSOURCE awaissource;
|
|
|
|
TH_STRUC_ALLOC(waissource,WAISSOURCE,awaissource);
|
|
awaissource->name = NULL;
|
|
awaissource->directory = NULL;
|
|
awaissource->description = NULL;
|
|
awaissource->connection = NULL;
|
|
awaissource->maintainer = NULL;
|
|
awaissource->subjects = NULL;
|
|
return(awaissource);
|
|
}
|
|
|
|
/*
|
|
* waissource_free - free a WAISSOURCE structure
|
|
*
|
|
* waissource_free takes a pointer to a WAISSOURCE structure and adds it to
|
|
* the free list for later reuse.
|
|
*/
|
|
void
|
|
waissource_free(WAISSOURCE awaissource)
|
|
{
|
|
stfree(awaissource->name); awaissource->name = NULL;
|
|
stfree(awaissource->directory); awaissource->directory = NULL;
|
|
stfree(awaissource->description); awaissource->description = NULL;
|
|
stfree(awaissource->connection); awaissource->connection = NULL;
|
|
stfree(awaissource->maintainer); awaissource->maintainer = NULL;
|
|
stfree(awaissource->subjects); awaissource->subjects = NULL;
|
|
TH_STRUC_FREE(waissource,WAISSOURCE,awaissource);
|
|
}
|
|
|
|
/*
|
|
* waissource_lfree - free a linked list of WAISSOURCE structures.
|
|
*
|
|
* waissource_lfree takes a pointer to a waissource structure frees it and
|
|
* any linked
|
|
* WAISSOURCE structures. It is used to free an entire list of WAISSOURCE
|
|
* structures.
|
|
*/
|
|
void
|
|
waissource_lfree(awaissource)
|
|
WAISSOURCE awaissource;
|
|
{
|
|
TH_STRUC_LFREE(WAISSOURCE,awaissource,waissource_free);
|
|
}
|
|
|
|
void
|
|
waissource_freespares()
|
|
{
|
|
TH_FREESPARES(waissource,WAISSOURCE);
|
|
}
|
|
|
|
#ifdef NEVERDEFINED
|
|
/*
|
|
* waissource_copy - allocates a new waissource structure and
|
|
* initializes it with a copy of another
|
|
* waissource, v.
|
|
*
|
|
* If r is non-zero, successive waissources will be
|
|
* iteratively copied.
|
|
*
|
|
* awaissource-previous will always be null on the first link, and
|
|
* will be appropriately filled in for iteratively copied links.
|
|
*
|
|
* waissource_copy returns a pointer to the new structure of type
|
|
* WAISSOURCE. If it is unable to allocate such a structure, it
|
|
* returns NULL.
|
|
*
|
|
* waissource_copy will recursively copy the link associated with
|
|
* a waissource and
|
|
* its associated attributes.
|
|
*/
|
|
|
|
WAISSOURCE
|
|
waissource_copy(f,r)
|
|
WAISSOURCE f;
|
|
int r; /* Currently ignored. */
|
|
{
|
|
WAISSOURCE nf;
|
|
WAISSOURCE snf; /* Start of the chain of new links */
|
|
WAISSOURCE tf; /* Temporary link pointer */
|
|
|
|
nf = waissource_alloc();
|
|
snf = nf;
|
|
|
|
copyeach:
|
|
|
|
/* Copy f into nf */
|
|
#ifdef ALLOCATOR_CONSISTENCY_CHECK
|
|
assert(f->consistency == INUSE_PATTERN);
|
|
#endif
|
|
LOCAL STUFF NOT DEFINED
|
|
if(r && f->next) {
|
|
f = f->next;
|
|
tf = nf;
|
|
nf = waissource_alloc();
|
|
nf->previous = tf;
|
|
tf->next = nf;
|
|
goto copyeach;
|
|
}
|
|
|
|
return(snf);
|
|
}
|
|
|
|
#endif
|