142 int sk_insert(STACK *st, char *data, int loc)  in sk_insert()  argument
156 	if ((loc >= (int)st->num) || (loc < 0))  in sk_insert()
165 		for (i=st->num; i>=loc; i--)  in sk_insert()
169 		memmove( (char *)&(st->data[loc+1]),  in sk_insert()
170 			(char *)&(st->data[loc]),  in sk_insert()
171 			sizeof(char *)*(st->num-loc));  in sk_insert()
173 		st->data[loc]=data;  in sk_insert()
190 char *sk_delete(STACK *st, int loc)  in sk_delete()  argument
195 	if(!st || (loc < 0) || (loc >= st->num)) return NULL;  in sk_delete()
197 	ret=st->data[loc];  in sk_delete()
198 	if (loc != st->num-1)  in sk_delete()
201 		for (i=loc; i<j; i++)  in sk_delete()