/*
** list.c
**
** Routines for manipulating the List type.
**
**	These list routines assign meta values of null to the resulting lists;
**	it is impossible to glob with the value of a variable unless this value
**	is rescanned with eval - therefore it is safe to throw away the
**	meta-ness of the list.
*/

#include "rc.h"

/* free a list from malloc space */

extern void listfree(List *p) {
	while (p != NULL) {
		List *n = p->n;
		efree(p->w);
		efree(p);
		p = n;
	}
}

/* Copy list into malloc space (for storing a variable) */

extern List *listcpy(List *s, void *(*alloc)(size_t)) {
	List *top, *r;
	for (top = r = NULL; s != NULL; s = s->n) {
		if (top == NULL)
			r = top = (*alloc)(sizeof (List));
		else
			r = r->n = (*alloc)(sizeof (List));
		r->w = (*alloc)(strlen(s->w) + 1);
		strcpy(r->w, s->w);
		r->m = NULL;
	}
	if (r != NULL)
		r->n = NULL;
	return top;
}

/* Length of list */

extern size_t listlen(List *s) {
	size_t size;
	for (size = 0; s != NULL; s = s->n)
		size += strlen(s->w) + 1;
	return size;
}

/* Number of elements in list */

extern int listnel(List *s) {
	int nel;
	for (nel = 0; s != NULL; s = s->n)
		nel++;
	return nel;
}
