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

#include "arr_dbl_t.h"
#include "read_l7a.h"
#include "write_l7a.h"

void parse_l7a(const char *filename, arr_dbl_t *ad_object)
{
  int rl7a_result;
  size_t i;
  rl7a_result = read_l7a(filename, ad_object);
  if (rl7a_result == RL7A_SUCCESS) {
    printf("\nSuccess with file name %s.\n", filename);
    printf("Array has %zd elements ...\n", ad_object->len);
    for (i = 0; i < ad_object->len; i++)
      printf("  %.18g\n", ad_object->arr[i]);
    printf("\n");

    // Avoid memory leak.
    //free(ad_object.arr);
  }
  else
    printf("\nFailure code %d with file name %s.\n", rl7a_result, filename);
}

int main(int argc, char **argv)
{
    if (argc != 4)
    {
        printf("Number of paramaters is incorrect. \nExpected is 3 paramaters\n");
        printf("Exiting program!");
        exit(1);
    }

    arr_dbl_t file1_cont, file2_cont, result_cont;
    int write_result;
    int i, j;

    parse_l7a(argv[1], &file1_cont);
    parse_l7a(argv[2], &file2_cont);

    result_cont.len = file1_cont.len + file2_cont.len;
    result_cont.arr = malloc(result_cont.len * sizeof(double));
    for(i = 0, j = 0; j < file2_cont.len; i++)
    {
        if(i >= file1_cont.len)
        {
            result_cont.arr[i] = file2_cont.arr[j];
            j++;
        }
        else
            result_cont.arr[i] = file1_cont.arr[i];
    }
    write_result = write_l7a(argv[3], result_cont.arr, result_cont.len);
    if (write_result == WL7A_SUCCESS)
        printf("Successfuly opened, copied data into, and closed the destination file!\n");
    if (write_result == WL7A_OPEN_FAIL)
        {
            printf("Failed to open destination file\n Exiting!\n");
            exit(1);
        }
    if (write_result == WL7A_CLOSE_FAIL)
    {
        printf("Failed to close destination file\n Exiting!\n");
        exit(1);
    }

    int k;
    printf("Array copied into the destination file has %ld elements and is as shown ...\n"
                                                                            , result_cont.len);
    for (k = 0; k < result_cont.len; k++)
        printf("  %.18g\n", result_cont.arr[k]);

  return 0;
}