bin/bash/array.c

48 #define ADD_BEFORE(ae, new) \
50 		ae->prev->next = new; \
51 		new->prev = ae->prev; \
52 		ae->prev = new; \
53 		new->next = ae; \
108 	ARRAY_ELEMENT	*ae, *new;
116 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae)) {
117 		new = array_create_element(element_index(ae), element_value(ae));
160 	register ARRAY_ELEMENT *ae;
164 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae))
165 		if ((*func)(ae, udata) < 0)
182 	register ARRAY_ELEMENT *ae, *ret;
188 	for (i = 0, ret = ae = element_forw(a->head); ae != a->head && i < n; ae = element_forw(ae), i++)
190 	if (ae == a->head) {
196 		for (ae = ret; element_forw(ae) != a->head; ae = element_forw(ae))
198 		element_forw(ae) = (ARRAY_ELEMENT *)NULL;
205 	 * ae now points to the list of elements we want to retain.
208 	ae->prev->next = (ARRAY_ELEMENT *)NULL;		/* null-terminate RET */
210 	a->head->next = ae;		/* slice RET out of the array */
211 	ae->prev = a->head;
213 	for ( ; ae != a->head; ae = element_forw(ae))
214 		element_index(ae) -= n;	/* renumber retained indices */
220 		for (ae = ret; ae; ) {
221 			ret = element_forw(ae);
222 			array_dispose_element(ae);
223 			ae = ret;
242 	register ARRAY_ELEMENT	*ae, *new;
249 	ae = element_forw(a->head);
252 		ADD_BEFORE(ae, new);
261 	for ( ; ae != a->head; ae = element_forw(ae))
262 		element_index(ae) += n;
556 array_copy_element(ae)
557 ARRAY_ELEMENT	*ae;
559 	return(ae ? array_create_element(element_index(ae), element_value(ae))
565 array_dispose_element(ae)
566 ARRAY_ELEMENT	*ae;
568 	if (ae) {
569 		FREE(ae->value);
570 		free(ae);
583 	register ARRAY_ELEMENT *new, *ae;
602 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae)) {
603 		if (element_index(ae) == i) {
608 			free(element_value(ae));
609 			ae->value = v ? savestring(v) : (char *)NULL;
611 		} else if (element_index(ae) > i) {
612 			ADD_BEFORE(ae, new);
629 	register ARRAY_ELEMENT *ae;
633 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae))
634 		if (element_index(ae) == i) {
635 			ae->next->prev = ae->prev;
636 			ae->prev->next = ae->next;
639 				a->max_index = element_index(ae->prev);
640 			return(ae);
653 	register ARRAY_ELEMENT *ae;
657 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae))
658 		if (element_index(ae) == i)
659 			return(element_value(ae));
671 	ARRAY_ELEMENT	*ae;
676 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae))
677 		list = make_word_list (make_bare_word(element_value(ae)), list);
698 	ARRAY_ELEMENT	*ae;
704 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae)) {
705 		t = itos(element_index(ae));
731 	ARRAY_ELEMENT	*ae;
737 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae)) {
738 		t = element_value (ae);
756 	ARRAY_ELEMENT *ae;
764 	for (rsize = rlen = 0, ae = start; ae != end; ae = element_forw(ae)) {
767 		if (element_value(ae)) {
768 			t = quoted ? quote_string(element_value(ae)) : element_value(ae);
779 			if (element_forw(ae) != end) {
797 	ARRAY_ELEMENT *ae;
807 	for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae)) {
808 		is = inttostr (element_index(ae), indstr, sizeof(indstr));
809 		valstr = element_value (ae) ? sh_double_quote (element_value(ae))
824 		if (element_forw(ae) != a->head)
978 print_element(ae)
979 ARRAY_ELEMENT	*ae;
984 		inttostr (element_index(ae), lbuf, sizeof (lbuf)),
985 		element_value(ae));
998 	ARRAY_ELEMENT	*ae, *aew;
1017 	ae = array_remove(a, 4);
1018 	array_dispose_element(ae);
1019 	ae = array_remove(a, 1029);
1020 	array_dispose_element(ae);
1055 	ae = array_shift(copy_of_a, 2, 0);
1058 	for ( ; ae; ) {
1059 		aew = element_forw(ae);
1060 		array_dispose_element(ae);
1061 		ae = aew;
1072 	ae = array_shift(copy_of_a, array_num_elements(copy_of_a), 0);
1073 	for ( ; ae; ) {
1074 		aew = element_forw(ae);
1075 		array_dispose_element(ae);
1076 		ae = aew;