/*
 * backup_test.c
 * source libplist regression test
 *
 * Copyright (c) 2009 Jonathan Beck All Rights Reserved.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */


#include "plist/plist.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>

#ifdef _MSC_VER
#pragma warning(disable:4996)
#endif


int main(int argc, char *argv[])
{
    FILE *iplist = NULL;
    plist_t root_node1 = NULL;
    plist_t root_node2 = NULL;
    char *plist_bin = NULL;
    char *plist_bin2 = NULL;
    char *plist_xml = NULL;
    int size_in = 0;
    uint32_t size_out = 0;
    uint32_t size_out2 = 0;
    char *file_in = NULL;
    char *file_out = NULL;
    struct stat *filestats = (struct stat *) malloc(sizeof(struct stat));
    if (argc != 3)
    {
        printf("Wrong input\n");
        return 1;
    }

    file_in = argv[1];
    file_out = argv[2];
    //read input file
    iplist = fopen(file_in, "rb");

    if (!iplist)
    {
        printf("File does not exists\n");
        return 2;
    }
    printf("File %s is open\n", file_in);
    stat(file_in, filestats);
    size_in = filestats->st_size;
    plist_bin = (char *) malloc(sizeof(char) * (size_in + 1));
    if (fread(plist_bin, sizeof(char), size_in, iplist) != (size_t)size_in) {
        printf("Failed to read input file\n");
        fclose(iplist);
        free(plist_bin);
        free(filestats);
        return 3;
    }
    fclose(iplist);


    //convert one format to another
    plist_from_bin(plist_bin, size_in, &root_node1);
    if (!root_node1)
    {
        printf("PList BIN parsing failed\n");
        return 3;
    }

    printf("PList BIN parsing succeeded\n");
    plist_to_xml(root_node1, &plist_xml, &size_out);
    if (!plist_xml)
    {
        printf("PList XML writing failed\n");
        return 4;
    }

    printf("PList XML writing succeeded\n");
    plist_from_xml(plist_xml, size_out, &root_node2);
    if (!root_node2)
    {
        printf("PList XML parsing failed\n");
        return 5;
    }

    printf("PList XML parsing succeeded\n");
    plist_to_bin(root_node2, &plist_bin2, &size_out2);
    if (!plist_bin2)
    {
        printf("PList BIN writing failed\n");
        return 8;
    }

    printf("PList BIN writing succeeded\n");
    if (plist_bin2)
    {
        FILE *oplist = NULL;
        oplist = fopen(file_out, "wb");
        fwrite(plist_bin2, size_out2, sizeof(char), oplist);
        fclose(oplist);
    }

    plist_free(root_node1);
    plist_free(root_node2);
    free(plist_xml);
    free(plist_bin);
    free(plist_bin2);
    free(filestats);

    if ((uint32_t)size_in != size_out2)
    {
        printf("Size of input and output is different\n");
        printf("Input size : %i\n", size_in);
        printf("Output size : %i\n", size_out2);
    }

    //success
    return 0;
}