/*
 * Copyright (C) 2018 "IoT.bzh"
 * Author "Romain Forlot" <romain.forlot@iot.bzh>
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *	 http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include "list.h"
#include "string.h"

void destroy_list(struct list *l)
{
	struct list *save;
	while(l != NULL) {
		save = l->next;
		free(l);
		l = save;
	}
}

void add_elt(struct list **l, const char *key, json_object *value)
{
	struct list *new_elt = malloc(sizeof(struct list));
	new_elt->key = key;
	new_elt->value = value;
	new_elt->next = NULL;

	if(*l) {
		while((*l)->next != NULL) {
			*l = (*l)->next;
		}
		(*l)->next = new_elt;
	}
	else {
		*l = new_elt;
	}
}

void add_key(struct list **l, const char *key)
{
	struct list *new_elt = malloc(sizeof(struct list));
	new_elt->key = key;
	new_elt->value = NULL;
	new_elt->next = NULL;

	if(*l) {
		while((*l)->next != NULL) {
			*l = (*l)->next;
		}
		(*l)->next = new_elt;
	}
	else {
		*l = new_elt;
	}
}

int set_value(struct list *l, json_object *val, int index)
{
	int i;

	for (i = 0; i < index; i++) {
		l = l->next;
		if ( l == NULL )
			return -1;
	}

	l->value = val;
	return 0;
}

struct list *get_elt(struct list *l, int index)
{
	int i;

	for (i = 0; i < index; i++) {
		l = l->next;
		if ( l == NULL )
			return NULL;
	}

	return l;
}

struct list *find_elt_from_key(struct list *l, const char *key)
{
	while(l != NULL) {
		if(strcasecmp(l->key, key) == 0)
			return l;
		l = l->next;
	}
	return NULL;
}

json_object *find_key_value(struct list *l, const char *key)
{
	while(l != NULL) {
		if(strcasecmp(l->key, key) == 0)
			return l->value;
		l = l->next;
	}
	return NULL;
}