path: root/calendar/cal-util/icalendar-test.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */

#include <sys/stat.h>
#include <stdlib.h>
#include <unistd.h>

#include <config.h>
#include <gtk/gtksignal.h>
#include <cal-util/calobj.h>
#include "libversit/vcc.h"

#include "icalendar-save.h"
#include "icalendar.h"


static icalcomponent* 
icalendar_parse_file (char* fname)
{
    FILE* fp;
    icalcomponent* comp = NULL;
    gchar* str;
    struct stat st;
    int n;

    fp = fopen (fname, "r");
    if (!fp) {
        g_warning ("Cannot open open calendar file.");
        return NULL;
    }
    
    stat (fname, &st);
    
    str = g_malloc (st.st_size + 2);
    
    n = fread ((gchar*) str, 1, st.st_size, fp);
    if (n != st.st_size) {
        g_warning ("Read error.");
    }
    str[n] = '\0';

    fclose (fp);
    
    comp = icalparser_parse_string (str);
    g_free (str);

    return comp;
}


static GList *
icalendar_calendar_load (GList *icals, char *fname)
{
    icalcomponent *comp;
    icalcomponent *subcomp;
    iCalObject    *ical;

    comp = icalendar_parse_file (fname);
    subcomp = icalcomponent_get_first_component (comp,
                             ICAL_ANY_COMPONENT);
    while (subcomp) {
        ical = ical_object_create_from_icalcomponent (subcomp);
        if (ical->type != ICAL_EVENT && 
            ical->type != ICAL_TODO  &&
            ical->type != ICAL_JOURNAL) {
            g_warning ("Skipping unsupported iCalendar component");
        } else {
            printf ("prepending %p\n", ical);
            icals = g_list_prepend (icals, ical);
        }
        subcomp = icalcomponent_get_next_component (comp,
                               ICAL_ANY_COMPONENT);
    }

    return icals;
}




static void
icalendar_calendar_save (GList *icals, char *fname)
{
    GList *cur;
    icalcomponent *top = icalcomponent_new (ICAL_VCALENDAR_COMPONENT);
    char *out_cal_string;

    for (cur=icals; cur; cur=cur->next) {
        iCalObject *ical = (iCalObject *) cur->data;
        icalcomponent *comp;
        comp = icalcomponent_create_from_ical_object (ical);
        icalcomponent_add_component (top, comp);
    }

    out_cal_string = icalcomponent_as_ical_string (top);

    printf ("---------------------------------------------------------\n");
    printf ("%s", out_cal_string);
}



int main (int argc, char *argv[])
{
    GList *icals = NULL;
    int i;
    long int n0, n1;
        struct icaldurationtype dt;


    /* test icaldurationtype_from_timet */
    srandom (time (0));

    for (i=0; i<10; i++) {
        n0 = random () % ((60 * 60 * 24 * 7) * 4);
        dt = icaldurationtype_from_timet (n0);
        n1 = icaldurationtype_as_timet (dt);

        printf ("%ld -> (%d %d %d %d %d) -> %ld\n",
            n0,
            dt.weeks, dt.days, dt.hours, dt.minutes, dt.seconds,
            n1);
        if (n0 != n1) abort ();
    }

    /*****************/
    /* test conversion of icalcomponents to and from iCalObjects */
    /*****************/

    /* load an ical file */

    if (argc < 2) {
        printf ("give ical file as argument.\n");
        return 1;
    }

    icals = icalendar_calendar_load (icals, argv[ 1 ]);

    printf ("loaded %d ical components\n", g_list_length (icals));


    /* save it back out */

    icalendar_calendar_save (icals, "out.ical");

    return 0;
}