individual.c

/* 
 * File:   individual.c
 * Author: chris
 *
 * Created on 17 November 2014, 20:50
 */

#include <stdlib.h>
#include <stdio.h>

#include "navigation.h"
#include "sighting.h"
#include "individual.h"

/*
 * Takes in a linked list of sightings and, using the get_distance function,
 * determines which of those sightings are the same creature.
 * 
 * Returns a linked list of individual creatures.
 */

individual_list* find_individuals(sighting_list *sightings){
    individual_list *result = malloc(sizeof(individual_list));
    result->next = NULL;
    individual_list *current_ind = result;
    individual_list *last_ind = result;
    sighting_list *current_sight = sightings;
    sighting_list *last_sight = sightings;
    
    do {
        sighting_list *i;
        sighting_list *collection = malloc(sizeof(sighting_list));
        sighting_list *curr_entry = collection;
        collection->next = NULL;
        sighting *sighting1 = (collection->content = current_sight->content);
        for(i = current_sight->next; i != NULL; i = i->next) {
            sighting *sighting2 = i->content;
            if (is_individual(sighting1, sighting2)) {
                curr_entry = (curr_entry->next = malloc(sizeof(sighting_list)));
                curr_entry->content = sighting2;
                curr_entry->next = NULL;
            }
            last_sight = i;
        }
        current_ind->content = gen_individual(collection);
        last_ind = current_ind;
        current_ind = (current_ind->next = malloc(sizeof(individual_list)));
        last_sight = current_sight;
    } while ((current_sight = current_sight->next) != NULL);
    last_ind->next = NULL;
    free(current_ind);
    tidy_individuals(result);
    
    return result;
}

/*
 * Takes in a linked list of sightings and returns an individual
 */

individual* gen_individual(sighting_list *collection) {
    sighting_list *curr_entry = collection;
    unsigned int counter = 0;
    char species = collection->content->species;
    location total;
    total.lat = 0;
    total.lng = 0;
    individual *result = malloc(sizeof(individual));
    do {
        location current = get_location(curr_entry->content);
        total.lat += current.lat;
        total.lng += current.lng;
        counter++;
    } while((curr_entry = curr_entry->next) != NULL);
    total.lat /= counter;
    total.lng /= counter;
    result->sightings = collection;
    result->sighting_num = counter;
    result->position = total;
    result->species = species;
    return result;
}

/*
 * Prints out an organised list of individual creatures
 */

void print_individuals(individual_list *list){
    individual_list *current = list;
    printf("+=======================+===============+==========+\n");
    printf("| Location\t\t| Sightings\t|  Species |\n");
    printf("+-----------------------+---------------+----------+\n");
    do {
        individual *record = current->content;
        if (in_bounds(record->position)) {
            sighting_list *sightings;
            printf("|(%f, %f)\t|%8d\t| %8s |\n",
                    record->position.lat, record->position.lng,
                    record->sighting_num,
                    record->species == 'P' ? "Porpoise" : "Dolphin");
            printf("+-----------------------+---------------+----------+\n");
            for (sightings = record->sightings; sightings != NULL;
                    sightings = sightings->next) {
                location loc = get_location(sightings->content);
                printf("| (%f, %f) seen by %s\t\t   |\n", loc.lat, loc.lng,
                        sightings->content->obs->id);
            }
            printf("+=======================+===============+==========+\n");
        }
    } while ((current = current->next) != NULL);
    printf("\n");
}